I am having trouble getting some simple code to work. I figure I can look at it for another million hours and maybe find the problem, or just run it past one of the experts and see what you come up with. It's probably something silly.
Here it is, it's almost letter for letter of "Beginning ASP Databases" page 389:
<body>
Update a puppy
<%
Dim strSQL
Dim adCmdText
adCmdText = 1
If Len(Request.Form("FormAction")) = 0 Then
Set objRS = Server.CreateObject("ADODB.Recordset")
objRs.Open "Select name from pups","DSN=XXXXXXX; User ID=XXXXXX; Password=XXXXXXX"
%>
<FORM ACTION=update.asp METHOD=post NAME=frmDisplay
<INPUT TYPE=hidden NAME=FormAction VALUE=Step2>
<TABLE>
<TR>
<TD COLSPAN=2> Select a puppy to update</TD>
</TR>
<TR>
<TD>Puppy Name</TD>
<TD><SELECT NAME=cboname>
<%
Do While Not objRS.EOF
%>
<OPTION VALUE="<%=objRS("name")%>">
<%=objRS("name")%></OPTION>
<%
objRS.MoveNext
Loop
objRS.Close
Set objRS = Nothing
%>
</SELECT></TD>
</TR>
<TR>
<TD HEIGHT=60> <INPUT TYPE=submit NAME=btnSubmit VALUE=Submit> </TD>
</TR>
</TABLE>
</FORM>
<%
ElseIf Request.Form("FormAction") = "Step2" Then
strSQL = "Select * from pups where name = '" & _
CStr(Request.Form("cboname")) & "'"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRs.Open strSQL,"DSN=XXXXXXXXXXXX; User ID=XXXXXXXXX; Password=XXXXXXXXXX"
%>
<FORM ACTION=update.asp METHOD=post NAME=frmUpdate>
<INPUT TYPE=hidden NAME=FormAction VALUE=Step3>
<INPUT TYPE=hidden NAME=txtname
VALUE="<%=objRS("name")%>">
<TABLE>
<TR>
<TD>Puppy Name</TD>
<TD> <%=objRS("name")%></TD>
</TR>
<TR>
<TD NOWRAP>Breeder</TD>
<TD><INPUT TYPE=text NAME=txtbreeder Size=25
VALUE=<%=objRS("breeder")%>> </TD>
</TR>
<TR>
<TD HEIGHT=60>
<INPUT TYPE=button NAME=btnSubmit VALUE=Submit> </TD>
</TR>
</TABLE>
</FORM>
<%
objRS.Close
Set objRS = Nothing
%>
<SCRIPT LANGUAGE=vbscript>
Sub btnSubmit_OnClick()
Call frmUpdate.submit()
End Sub
</SCRIPT>
<%
ElseIf Request.Form("FormAction") = "Step3" Then
strSQL = "Update pups Set " & _
"breeder = " & _
CStr(Request.Form("txtbreeder")) & ", " & _
"WHERE name = '" & _
CStr(Request.Form("txtname")) & "'"
Set obConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DSN=XXXXXXXXX; User ID=XXXXXXX; Password=XXXXXXX"
Set objCmd = Server.CreateObject("ADODB.Command")
Set objCmd.ActiveConnection = objConn
objCmd.CommandText = strSQL
objCmd.CommandType = adCmdText
objCmd.Execute
Response.Write "This was updated " & _
"now it's done.<P>"
Response.Write strSQL
Set objCmd = Nothing
objConn.Close
Set objConn = Nothing
End If
%>
</body>
A little ASP help pls?
