<%@ Page Language="VB" Explicit="True" debug="True"%>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
Upload Note
<%
'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)
catch e As OleDbException
Response.write("
")
Response.write(e)
finally
cn.Close ()
End Try
%>