Linda writes "Even when I don't Dim conn on the Insert, or try to set two Recordsets with set conn = server.createobject("adodb.connection". The script will insert or it will select. But when I combine the two, I get A -- this page cannot be displayed.
How do I select and insert on one asp page?? **************************************************************
Dim conn
set rs=Server.CreateObject("adodb.Recordset")
conn="DSN=lovers"
sqlString = "SELECT Username, EmailAddress FROM tblUserInfo " &_
"WHERE Username ='" & newUsername & "'" &_
"OR EmailAddress = '" & EmailAddress & "'"
rs.open sqlString, conn
If err.number>0 then
response.write "VBScript Errors Occured:" & ""
response.write "Error Number=" & err.number & "
"
response.write "Error Descr.=" & err.description & "
"
response.write "Help Context=" & err.helpcontext & "
"
response.write "Help Path=" & err.helppath & "
"
response.write "Native Error=" & err.nativeerror & "
"
response.write "Source=" & err.source & "
"
response.write "SQLState=" & err.sqlstate & "
"
Else
If rs.EOF Then
Response.Write "You are a new User"
ElseIf rs( "EmailAddress" ) = EmailAddress THEN
Response.Write "
Sorry you " &_
"had so much to fill out,
but that " &_
"EMAIL ADDRES IS ALREADY TAKEN.
" &_
" For Administative Purposes, we require
" &_
"A UNIQUE EMAIL ADDRESS. "
ElseIf rs( "Username" ) = newUsername THEN
Response.Write "Sorry you " &_
"had so much to fill out, but that
" &_
"USERNAME IS ALREADY TAKEN.
" &_
" Please try something very unique. "
End If
End IF
rs.Close
Set rs = Nothing
*****************************************************************
Dim conn
Dim RS
Dim SQLstmt
set conn = server.createobject("adodb.connection")
'Set your connection to the DSN
conn.open "lovers"
SQLstmt = "INSERT INTO tblUserInfo (EmailAddress, Username)"
SQLstmt = SQLstmt & " VALUES ("
SQLstmt = SQLstmt & "'" & EmailAddress & "',"
SQLstmt = SQLstmt & "'" & newUsername & "')"
Set RS = conn.execute(SQLstmt)
If err.number>0 then
response.write "VBScript Errors Occured:" & ""
response.write "Error Number=" & err.number & "
"
response.write "Error Descr.=" & err.description & "
"
response.write "Help Context=" & err.helpcontext & "
"
response.write "Help Path=" & err.helppath & "
"
response.write "Native Error=" & err.nativeerror & "
"
response.write "Source=" & err.source & "
"
response.write "SQLState=" & err.sqlstate & "
"
End If
If conn.errors.count> 0 then
response.write "Database Errors Occured" & "
"
response.write SQLstmt & "
"
for counter= 0 to conn.errors.count
response.write "Error #" & conn.errors(counter).number & "
"
response.write "Error desc. -> " & conn.errors(counter).description & "
"
Next
Else
Response.Write "Information has been added successfully to the database."
End If
conn.close"
How do I select and insert on one ASP page? 
Posted - 2001-06-08 : 08:49:29