<% '*************************************** '* '*************************************** %> Gästbok
<% Dim name Dim email Dim hlink Dim descrip dim inputnum inputnum = request.querystring("inputnum") If IsEmpty(inputnum) or inputnum = "" then %>

 

Skriv gärna i vår gästbok!
För att läsa andras inlägg, klicka här.
   
   
Namn:
   
E-post adress:
   
Hemsida:
   
Mitt meddelande:


   
Gästboken designad av
www.twigit.com

<% Else date1 = Now() name = request.form("name") email = request.form("email") hlink = request.form("hlink") description = request.form("description") set conn = server.createobject("adodb.connection") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("links.mdb") conn.Open "DSN=d1101_links;Password=Pd4dXcBU" SQLstmt = "INSERT INTO linksdata (name,link,description,date1,email)" SQLstmt = SQLstmt & " VALUES (" SQLstmt = SQLstmt & "'" & name & "'," SQLstmt = SQLstmt & "'" & hlink & "'," SQLstmt = SQLstmt & "'" & description & "'," SQLstmt = SQLstmt & "'" & date1 & "'," SQLstmt = SQLstmt & "'" & email & "'" SQLstmt = SQLstmt & ")" Set RS = conn.execute(SQLstmt) %>

Tack!
Detta är vad du skrev in.
     
 

Ditt Namn:

<% =name %>
 
Din E-post Adress:
<% =email %>
 
Hemsida:
  Ditt meddelande: <% =description %>
     

 

Gästboken designad av
www.twigit.com


<% end if %>