View Single Post
 
Old June 4th, 2006, 07:23 AM
myself myself is offline
Authorized User
 
Join Date: May 2006
Location: Bradford, , United Kingdom.
Posts: 49
Thanks: 0
Thanked 0 Times in 0 Posts
Default

All fields are text fields (apart from the ID=AutoNum)...
The data does no add to the DB...
Here's the uncut/unmodified version (as approved by the client to post):

<%
      wpage = request.ServerVariables("HTTP_REFERER")
    mypage = Right(wpage, 10)
  If mypage = "sister.asp" Then
mySQL = "INSERT INTO tbl_sister (SrfName, SrSurname, SrAge, SrStatus, SrEmail, SrPhone, SrTown, SrCountry, SrNational, SrEducation, SrPract, SrDawah, SrHijab, SrWork, SroDesc)"
mySQL = mySQL & " VALUES ('" & request.form("SrfName") & "','" & request.form("SrSurname") & "','" & request.form("SrAge") & "','" & request.form("SrStatus") & "','" & request.form("SrEmail") & "','" & request.form("SrPhone") & "','" & request.form("SrTown") & "','" & request.form("SrCountry") & "','" & request.form("SrNational") & "','" & request.form("SrEducation") & "','" & request.form("SrPract") & "','" & request.form("SrDawah") & "','" & request.form("SrHijab") & "','" & request.form("SrWork") & "','" & request.form("SroDesc") & "')"
' myCon.execute(mySQL)
Response.Write("Sql is " & mySQL)
Response.End
ELSE
mySQL = "INSERT INTO tbl_brother (BrfName, BrSurname, BrAge, BrStatus, BrEmail, BrPhone, BrTown, BrCountry, BrNational, BrEducation, BrPract, BrDawah, BrBeard, BrWork, BroDesc)"
mySQL = mySQL & " VALUES ('" & request.form("BrfName") & "','" & request.form("BrSurname") & "','" & request.form("BrAge") & "','" & request.form("BrStatus") & "','" & request.form("BrEmail") & "','" & request.form("BrPhone") & "','" & request.form("BrTown") & "','" & request.form("BrCountry") & "','" & request.form("BrNational") & "','" & request.form("BrEducation") & "','" & request.form("BrPract") & "','" & request.form("BrDawah") & "','" & request.form("BrBeard") & "','" & request.form("BrWork") & "','" & request.form("BroDesc") & "')"
' myCon.execute(mySQL)
Response.Write("Sql is " & mySQL)
Response.End
End IF
%>


???