<%@ Language=VBScript %> <% dim decision dim schoolName, contactPerson, email, phoneNo, sqlQuery dim Calendar,Coop dim ConnBuffer dim RS din intID Set ConnBuffer = Server.CreateObject("ADODB.Connection") ConnBuffer.Open ConnectionString decision = trim(Request.Form("decision")) schoolName = trim(Request.Form("SchoolName")) contactPerson = trim(Request.Form("contactPerson")) email = trim(Request.Form("email")) phoneNo = trim(Request.Form("phoneNo")) calendar = trim(Request.Form("Calendar")) Coop= trim(Request.Form("ccop")) sqlquery="select MAX record_id as intID from IEEESurvey_general" set RS = ConnBuffer.Execute(sqlquery) if RS.eof = false then intId = cint(RS("intId"))+1 else 'first ID intID = 0 end if sqlQuery="insert into IEEEsurvey_general (record_ID,schoolname,contactPerson,Email,PhoneNo,calendar,coop) " sqlQuery= sqlQuery &"values ("& intID& ",'" & schoolName & "','" & contactPerson & "','" & email sqlQuery= sqlQuery&"','"& phoneNo &"','"& calendar & "','"& coop &"')" ConnBuffer.Execute(sqlQuery) sqlQuery= "select * from IEEESurvey_general" set RS = ConnBuffer.Execute(sqlquery) do while (RS.eof = false) Response.Write RS("record_ID") RS("schoolName") RS("contactPerson") RS.movenext loop %>