<% If Request.QueryString("add") = "send" Then Dim Datum Datum = now %>

Send us your letter

Name:
E-mail address:
Homepage address :
Country:
Your message:

 
Type the code/numbers here: Code


<% End If %> <% '===================================================================================================================== %> <% ' Formulärskod för att skapa inlägg %> <% '===================================================================================================================== %> <% If Request.QueryString("add") = "yes" Then %>
<% dim strl if request("kodsnutt") = "135342" then Response.Write ("

Letter has been sent

") Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("gaster99.mdb")) Set RecSet = Server.CreateObject("ADODB.Recordset") Addera = "SELECT * FROM gaster" RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic RecSet.AddNew RecSet("name") = Request.Form("name") RecSet("email") = Request.Form("email") RecSet("www") = Request.Form("www") RecSet("country") = Request.Form("country") RecSet("datum") = Request.Form("datum") RecSet("ipnr") = Request.Form("ipnr") str1 = Request.Form("message") str1 = Replace(str1, vbCrLf, "
") RecSet("message") = str1 RecSet.Update RecSet.Close Response.Write ("
Your letter has been sent to us and it will first be reviewed by us before we publish it at nanews.net") Response.Write ("

") else Response.Write ("

Letter has not been sent



") response.write "You did type the Wrong Code" end if 'RecSet.close 'Connect.Close %> <% End If %>