Guest_imported
New member
- Jan 1, 1970
- 0
Why i can't redirect to the pages with the following code.
It seems that problem lies in this [if (Request ("text1"
<> "" and Request ("text2"
<> "" ) Then]
<%
if (Request ("text1"
<> "" and Request ("text2"
<> "" ) Then
Dim adoCon , adoRec ' ADO connection object
Dim ConnString
Dim myNameID, myUserID, myPwd, myDept, myYr, myEmail, SQL
myNameID = Request.Form ("text1"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
myUserID = Request.Form ("text2"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
myPwd = Request.Form ("password1"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
myDept = Request.Form ("select1"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
myYr = Request.Form ("select10"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
myEmail= Request.Form ("text3"
Set adoCon = Server.CreateObject("ADODB.Connection"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
Set adoRec=server.CreateObject ("ADODB.Recordset"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
ConnString="driver={sql server};server=CON7; database=user;DSN=localserver;PWD=sa;UID=sa;"
adoCon.Open ConnString
adoRec.ActiveConnection = adoCon
SQL="UPDATE info " & _
"SET NameID='" & myNameID & "', " & _
"UserID='" & myUserID & "', " & _
"password='" & myPwd & "', " & _
"yearinfo='" & myYr & "', " & _
"email='" & myEmail & "', " & _
"WHERE department='" & myDept & "'"
adoCon.Execute (SQL)
Set adoCon = Nothing
adoCon.Close
Response.Redirect ("Success.asp"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
else%>
<script>
window.alert ("Records cannot be updated"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
</script>
<%end if%> X-)
It seems that problem lies in this [if (Request ("text1"
<%
if (Request ("text1"
Dim adoCon , adoRec ' ADO connection object
Dim ConnString
Dim myNameID, myUserID, myPwd, myDept, myYr, myEmail, SQL
myNameID = Request.Form ("text1"
myUserID = Request.Form ("text2"
myPwd = Request.Form ("password1"
myDept = Request.Form ("select1"
myYr = Request.Form ("select10"
myEmail= Request.Form ("text3"
Set adoCon = Server.CreateObject("ADODB.Connection"
Set adoRec=server.CreateObject ("ADODB.Recordset"
ConnString="driver={sql server};server=CON7; database=user;DSN=localserver;PWD=sa;UID=sa;"
adoCon.Open ConnString
adoRec.ActiveConnection = adoCon
SQL="UPDATE info " & _
"SET NameID='" & myNameID & "', " & _
"UserID='" & myUserID & "', " & _
"password='" & myPwd & "', " & _
"yearinfo='" & myYr & "', " & _
"email='" & myEmail & "', " & _
"WHERE department='" & myDept & "'"
adoCon.Execute (SQL)
Set adoCon = Nothing
adoCon.Close
Response.Redirect ("Success.asp"
else%>
<script>
window.alert ("Records cannot be updated"
</script>
<%end if%> X-)