%@ Language=VBScript %><% dim newsletter newsletter=Request.Form("newsletter") ns=trim(Request.Form("nesletter")) if (request.ServerVariables("CONTENT_LENGTH")>0) then set con=server.CreateObject("adodb.connection") set rs=server.CreateObject("adodb.recordset") con.Open ("DSN=jobsql") sql="insert into subscribe (newsletter) values('" &ns&"')" set rs=con.execute(sql) Response.end end if %>
| |||||||||||||||||||||||||||||