Ok folks
here's the Hizzie for shizzie!
My code is almost identical to what IGODIT posted...
view
Code:
<% @Language=VBScript%>
<% Option Explicit %>
<!--#include file="adovbs.inc"-->
<!--#include file="connection.asp"-->
<%
Dim objRS, Lname, Fname, MIname, address1, country, address2, phonecontact1, phonecontact2, phonecontact3, req1
Lname=trim(request.form("Lname"))
Fname=trim(request.form("Fname"))
address1=trim(request.form("address1"))
address2=trim(request.form("address2"))
req1=trim(request.form("req1"))
If Lname = "" then
response.redirect "createuser.asp?error=1"
else
If Fname = "" then
response.redirect "createuser.asp?error=1"
If address1 = "" then
response.redirect "createuser.asp?error=1"
If address2 = "" then
response.redirect "createuser.asp?error=1"
If req1 = "" then
response.redirect "createuser.asp?error=1"
End If
End If
End If
End If
End If
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "select top 1 * from [tbl]", objConn, adLockOptimistic, adCmdTable
objRS.AddNew
objRS("Lname") = Request.Form("Lname")
objRS("Fname") = Request.Form("Fname")
objRS("MIname") = Request.Form("MIname")
objRS("address1") = Request.Form("address1")
objRS("country") = Request.Form("country")
objRS("address2") = Request.Form("address2")
objRS("phonecontact1") = Request.Form("phonecontact1")
objRS("phonecontact2") = Request.Form("phonecontact2")
objRS("phonecontact3") = Request.Form("phonecontact3")
objRS("req1") = Request.Form("req1")
Set objRS = nothing
objConn.Close
Set objConn = nothing
Response.redirect "createuser2.asp?success=1"
%>
The Createuser files are confirmation messages
and the includes ...well... IGODIT said it best... you all should know what the includes are...
"Lname etc" are the field names...
I dont get any errors in running the code.
But i also dont see any results in my table.
Thats the prob