|
| |
<%
'Initialise connection with Access File and set parameters
Dim var_sql, var_value
'Greek Formats
session.LCID=2057
Dim strSQL
'retrieve field values from form
Dim ftype = Request("Type")
Dim ffname = Request("First_Name")
Dim flname = Request("Last_Name")
Dim ftitle = Request("Title")
Dim femail = Request("email")
Dim forgan = Request("organisation")
Dim fdepar = Request("department")
Dim fposit = Request("position")
Dim fpaddr = Request("Postal_Address")
Dim fcity = Request("City")
Dim fpcode = Request("Postal_Code")
Dim fcount = Request("country")
Dim fhphon = Request("homephone")
Dim fwphon = Request("workphone")
Dim ffax = Request("fax")
Dim fmobil = Request("mobile")
Dim fperso = Request("persons")
Dim fasubj = Request("abstractsubject")
Dim fatitl = Request("abstracttitle")
Dim fother = Request("otherauthors")
Dim fatext = Request("abstracttext")
Dim fplace = Request("Place")
Dim fdates = Request("Date_Sent")
'Open the recordset with notes
strSQL = "INSERT INTO Cest10 ([Type], [First_Name], [Last_Name], [Title], [Email],"
strSQL = strSQL & " [Organisation], [Department], [Position], [Postal_Address], [City], [Postal_Code],"
strSQL = strSQL & " [Country], [Home_Phone], [Work_Phone], [Fax], [Mobile], [Persons], [Abstract_Subject],"
strSQL = strSQL & " [Abstract_Title], [Other_Authors], [Abstract_Text], [Place], [Date_Sent], [Internet])"
strSQL = strSQL & " VALUES ('" & ftype & "','" & ffname & "','" & flname & "','" & ftitle
strSQL = strSQL & "','" & femail & "','" & forgan & "','" & fdepar & "','" & fposit
strSQL = strSQL & "','" & fpaddr & "','" & fcity & "','" & fpcode & "','" & fcount & "','" & fhphon
strSQL = strSQL & "','" & fwphon & "','" & ffax & "','" & fmobil & "','" & fperso & "','" & fasubj
strSQL = strSQL & "','" & fatitl & "','" & fother & "','" & fatext & "','" & fplace & "','" & fdates & "',1);"
'strSQL = "SELECT * FROM CEST10"
'strSQL = "Select * from cest10;"
'Open the recordset with field details
oleDbcom = new OleDbCommand(strSQL, cn)
try
cn.Open ()
oleDbcom.ExecuteNonQuery ()
'response.write(strSQL)
'response.redirect("http://www.gnest.org/cest/Addmember.aspx?ftype=" & ftype & "&ffname=" & ffname & "&flname=" & flname & "&ftitle=" & ftitle & "&femail=" & femail & "&forgan=" & forgan & "&fdepar=" & fdepar & "&fposit=" & fposit & "&fpaddr=" & fpaddr & "&fcity=" & fcity & "&fpcode=" & fpcode & "&fcount=" & fcount & "&fhphon=" & fhphon & "&fwphon=" & fwphon & "&ffax=" & ffax & "&fmobil=" & fmobil & "&fperso=" & fperso & "&fasubj=" & fasubj & "&fatitl=" & fatitl & "&fother=" & fother & "&fatext=" & fatext & "&fplace=" & fplace & "&fdates=" & fdates)
%>
Thank you !
Your application has been submitted to us successfully :
| Registered as : |
<% Response.Write(ftype) %> |
| First Name : |
<% Response.Write(ffname) %> |
| Last Name : |
<% Response.Write(flname) %> |
| Title (Mrs, Mr, Dr, etc) : |
<% Response.Write(ftitle) %> |
| E-mail address : |
<% Response.Write(femail) %> |
| Organisation : |
<% Response.Write(forgan) %> |
| Position : |
<% Response.Write(fposit) %> |
| Postal address : |
<% Response.Write(fpaddr) %> |
| City : |
<% Response.Write(fcity) %> |
| Postal Code : |
<% Response.Write(fpcode) %> |
| Country : |
<% Response.Write(fcount) %> |
| Home Phone : |
<% Response.Write(fhphon) %> |
| Work Phone : |
<% Response.Write(fwphon) %> |
| Fax : |
<% Response.Write(ffax) %> |
| Mobile Phone : |
<% Response.Write(fmobil) %> |
| Accompanied by : |
<% Response.Write(fperso) %> |
| Abstract Subject : |
<% Response.Write(fasubj) %> |
| Abstract Title : |
<% Response.Write(fatitl) %> |
| Abstract Text : |
<% Response.Write(fatext) %> |
| Place : |
<% Response.Write(fplace) %> |
| Date : |
<% Response.Write(fdates) %> |
<%
catch e As OleDbException
Response.write("
")
Response.write(e)
finally
cn.Close ()
End Try
%>
|
CEST2011
Home Page