|
I'm trying to post info to a database and get.. but my connection is not working.. Can you tell me if something is wrong with my asp? This is the post
<script LANGUAGE="VBScript" RUNAT="Server">
FUNCTION CheckString (s, endchar)
pos = InStr(s, "'")
While pos > 0
s = Mid(s, 1, pos) & "'" & Mid(s, pos + 1)
pos = InStr(pos + 2, s, "'")
Wend
CheckString="'" & s & "'" & endchar
END FUNCTION
</script>
<%
Action = Left(UCase(Request("Action")),6)
step1 = Request.form("step1")
step2 = Request.form("step2")
step3 = Request.form("step3")
step4 = Request.form("step4")
step5 = Request.form("step5")
If Action = "SUBMIT" Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "sept2003"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "sept2003",Conn,3,3
RS.AddNEW
RS("step1")=step1
RS("step2")=step2
RS("step3")=step3
RS("step4")=step4
RS("step5")=step5
RS.Update
RS.Close
Conn.Close
Response.Redirect "thanks.html"
' ElseIf Action ="Reset" Then
' Response.Redirect "ticrinputform.html"
End If
%>
__________________
Thanks
Rica
|