Using Arrays to write data to SQL Server

[Brett_A]

I'm trying to write data from a form using a text box (textarea) that
has a return after each item. For example:

em****@domain.c om
em****@domain.c om
em****@domain.c om
em****@domain.c om

I'm getting the data written to the SQL server table fine, but every
item after the first is getting written with a special character
preceeding the email address that looks like a little box. What is
it, why is their there and how do I remove it?

Here is my code:

<%@LANGUAGE="VB SCRIPT" CODEPAGE="1252" %>
<%
Dim varItems, varArray, I
varItems = Request("email_ address")
varArray = Split(varItems, chr(13))

For I = LBound(varArray ) To UBound(varArray )

'write data to database

Set Conn = Server.CreateOb ject("ADODB.Con nection")
Conn.Open "driver={SQ L Server};server= aaaaaaa;"
SQLStmt = "INSERT INTO tbl_advertisers (email_address) "
SQLStmt = SQLStmt & "VALUES ('" & varArray(I) & "')"
Set RS = Conn.Execute(SQ LStmt)
set rs=nothing

If err.number>0 then
response.write "VBScript Errors Occured:" & "<P>"
response.write "Error Number=" & err.number & "<P>"
response.write "Error Descr.=" & err.description & "<P>"
response.write "Help Context=" & err.helpcontext & "<P>"
response.write "Help Path=" & err.helppath & "<P>"
response.write "Native Error=" & err.nativeerror & "<P>"
response.write "Source=" & err.source & "<P>"
response.write "SQLState=" & err.sqlstate & "<P>"
end if
IF conn.errors.cou nt0 then
response.write "Database Errors Occured" & "<P>"
response.write SQLstmt & "<P>"
for counter= 0 to conn.errors.cou nt
response.write "Error #" & conn.errors(cou nter).number & "<P>"
response.write "Error desc. -" & conn.errors(cou nter).descripti on &
"<P>"
next
else
end if
Conn.Close
set conn=nothing

Next 'I
%>
Thanks.

Brett

[John Blessing]

"Brett_A" <br********@gma il.comwrote in message
news:11******** **************@ l53g2000cwa.goo glegroups.com.. .

I'm trying to write data from a form using a text box (textarea) that
has a return after each item. For example:

em****@domain.c om
em****@domain.c om
em****@domain.c om
em****@domain.c om

I'm getting the data written to the SQL server table fine, but every
item after the first is getting written with a special character
preceeding the email address that looks like a little box. What is
it, why is their there and how do I remove it?

Here is my code:

<%@LANGUAGE="VB SCRIPT" CODEPAGE="1252" %>
<%
Dim varItems, varArray, I
varItems = Request("email_ address")
varArray = Split(varItems, chr(13))

For I = LBound(varArray ) To UBound(varArray )

'write data to database

Set Conn = Server.CreateOb ject("ADODB.Con nection")
Conn.Open "driver={SQ L Server};server= aaaaaaa;"
SQLStmt = "INSERT INTO tbl_advertisers (email_address) "
SQLStmt = SQLStmt & "VALUES ('" & varArray(I) & "')"
Set RS = Conn.Execute(SQ LStmt)
set rs=nothing

If err.number>0 then
response.write "VBScript Errors Occured:" & "<P>"
response.write "Error Number=" & err.number & "<P>"
response.write "Error Descr.=" & err.description & "<P>"
response.write "Help Context=" & err.helpcontext & "<P>"
response.write "Help Path=" & err.helppath & "<P>"
response.write "Native Error=" & err.nativeerror & "<P>"
response.write "Source=" & err.source & "<P>"
response.write "SQLState=" & err.sqlstate & "<P>"
end if
IF conn.errors.cou nt0 then
response.write "Database Errors Occured" & "<P>"
response.write SQLstmt & "<P>"
for counter= 0 to conn.errors.cou nt
response.write "Error #" & conn.errors(cou nter).number & "<P>"
response.write "Error desc. -" & conn.errors(cou nter).descripti on &
"<P>"
next
else
end if
Conn.Close
set conn=nothing

Next 'I
%>
Thanks.

Brett

I supect you have a vbcrlf - Chr(13) & Chr(10) at the end of each line,
your split leaves behind the Chr(10)
--
John Blessing

http://www.LbeHelpdesk.com - Help Desk software priced to suit all
businesses
http://www.room-booking-software.com - Schedule rooms & equipment bookings
for your meeting/class over the web.
http://www.lbetoolbox.com - Remove Duplicates from MS Outlook, find/replace,
send newsletters

[Brett_A]

On Feb 1, 10:36 am, "John Blessing"
<blessij@**REMO VE**THIS**gmail .comwrote:

"Brett_A" <brettat...@gma il.comwrote in message

news:11******** **************@ l53g2000cwa.goo glegroups.com.. .

I'm trying to write data from a form using a text box (textarea) that
has a return after each item. For example:

ema...@domain.c om
ema...@domain.c om
ema...@domain.c om
ema...@domain.c om

I'm getting the data written to the SQL server table fine, but every
item after the first is getting written with a special character
preceeding the email address that looks like a little box. What is
it, why is their there and how do I remove it?

Here is my code:

<%@LANGUAGE="VB SCRIPT" CODEPAGE="1252" %>
<%
Dim varItems, varArray, I
varItems = Request("email_ address")
varArray = Split(varItems, chr(13))

For I = LBound(varArray ) To UBound(varArray )

'write data to database

Set Conn = Server.CreateOb ject("ADODB.Con nection")
Conn.Open "driver={SQ L Server};server= aaaaaaa;"
SQLStmt = "INSERT INTO tbl_advertisers (email_address) "
SQLStmt = SQLStmt & "VALUES ('" & varArray(I) & "')"
Set RS = Conn.Execute(SQ LStmt)
set rs=nothing

If err.number>0 then
response.write "VBScript Errors Occured:" & "<P>"
response.write "Error Number=" & err.number & "<P>"
response.write "Error Descr.=" & err.description & "<P>"
response.write "Help Context=" & err.helpcontext & "<P>"
response.write "Help Path=" & err.helppath & "<P>"
response.write "Native Error=" & err.nativeerror & "<P>"
response.write "Source=" & err.source & "<P>"
response.write "SQLState=" & err.sqlstate & "<P>"
end if
IF conn.errors.cou nt0 then
response.write "Database Errors Occured" & "<P>"
response.write SQLstmt & "<P>"
for counter= 0 to conn.errors.cou nt
response.write "Error #" & conn.errors(cou nter).number & "<P>"
response.write "Error desc. -" & conn.errors(cou nter).descripti on &
"<P>"
next
else
end if
Conn.Close
set conn=nothing

Next 'I
%>

Thanks.

Brett

I supect you have a vbcrlf - Chr(13) & Chr(10) at the end of each line,
your split leaves behind the Chr(10)

--
John Blessing

http://www.LbeHelpdesk.com- Help Desk software priced to suit all
businesseshttp://www.room-booking-software.com- Schedule rooms & equipment bookings
for your meeting/class over the web.http://www.lbetoolbox.com- Remove Duplicates from MS Outlook, find/replace,
send newsletters

That fixed it John, thanks.

Brett

[Farshad Hemmati]

The reason you are getting that symbol is because you are splitting the text
incorrectly. By splitting it with the Chr(13), you are forgetting that a new
line is Chr(13) + Chr(10).

The best way is to replace that line with the following:
varArray = Split(varItems, vbNewLine)

Your problem should be fixed.


"Brett_A" <br********@gma il.comwrote in message
news:11******** **************@ l53g2000cwa.goo glegroups.com.. .

I'm trying to write data from a form using a text box (textarea) that
has a return after each item. For example:

em****@domain.c om
em****@domain.c om
em****@domain.c om
em****@domain.c om

I'm getting the data written to the SQL server table fine, but every
item after the first is getting written with a special character
preceeding the email address that looks like a little box. What is
it, why is their there and how do I remove it?

Here is my code:

<%@LANGUAGE="VB SCRIPT" CODEPAGE="1252" %>
<%
Dim varItems, varArray, I
varItems = Request("email_ address")
varArray = Split(varItems, chr(13))

For I = LBound(varArray ) To UBound(varArray )

'write data to database

Set Conn = Server.CreateOb ject("ADODB.Con nection")
Conn.Open "driver={SQ L Server};server= aaaaaaa;"
SQLStmt = "INSERT INTO tbl_advertisers (email_address) "
SQLStmt = SQLStmt & "VALUES ('" & varArray(I) & "')"
Set RS = Conn.Execute(SQ LStmt)
set rs=nothing

If err.number>0 then
response.write "VBScript Errors Occured:" & "<P>"
response.write "Error Number=" & err.number & "<P>"
response.write "Error Descr.=" & err.description & "<P>"
response.write "Help Context=" & err.helpcontext & "<P>"
response.write "Help Path=" & err.helppath & "<P>"
response.write "Native Error=" & err.nativeerror & "<P>"
response.write "Source=" & err.source & "<P>"
response.write "SQLState=" & err.sqlstate & "<P>"
end if
IF conn.errors.cou nt0 then
response.write "Database Errors Occured" & "<P>"
response.write SQLstmt & "<P>"
for counter= 0 to conn.errors.cou nt
response.write "Error #" & conn.errors(cou nter).number & "<P>"
response.write "Error desc. -" & conn.errors(cou nter).descripti on &
"<P>"
next
else
end if
Conn.Close
set conn=nothing

Next 'I
%>
Thanks.

Brett