hmmm....fatter det egentlig ikke helt...hvor skal jeg sætte det ind?
her er hele koden :
<%
' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit.
On Error Resume Next
strErrorUrl = ""
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
If Request.Form("VTI-GROUP") = "0" Then
Err.Clear
Set fp_conn = Server.CreateObject("ADODB.Connection")
FP_DumpError strErrorUrl, "Cannot create connection"
Set fp_rs = Server.CreateObject("ADODB.Recordset")
FP_DumpError strErrorUrl, "Cannot create record set"
fp_conn.Open Application("guestbook_ConnectionString")
FP_DumpError strErrorUrl, "Cannot open database"
fp_rs.Open "guestbook", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
FP_DumpError strErrorUrl, "Cannot open record set"
fp_rs.AddNew
FP_DumpError strErrorUrl, "Cannot add new record set to the database"
Dim arFormFields0(4)
Dim arFormDBFields0(4)
Dim arFormValues0(4)
arFormFields0(0) = "Mail"
arFormDBFields0(0) = "Mail"
arFormValues0(0) = Request("Mail")
arFormFields0(1) = "URL"
arFormDBFields0(1) = "URL"
arFormValues0(1) = Request("URL")
arFormFields0(2) = "Navn"
arFormDBFields0(2) = "Navn"
arFormValues0(2) = Request("Navn")
arFormFields0(3) = "Kommentar"
arFormDBFields0(3) = "Kommentar"
arFormValues0(3) = Request("Kommentar")
FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0
If Request.ServerVariables("REMOTE_HOST") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "IP"
End If
FP_SaveFieldToDB fp_rs, Now, "Tid"
fp_rs.Update
FP_DumpError strErrorUrl, "Cannot update the database"
fp_rs.Close
fp_conn.Close
Session("FP_SavedFields")=arFormFields0
Session("FP_SavedValues")=arFormValues0
Response.Redirect "guestconfirm.asp"
End If
End If
%>
<html>
<head>
<title>Gæstebog</title>
</head>
<body stylesrc="../banner.htm">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber5">
<tr>
<td width="50%">
<h2><font face="Comic Sans MS">Gæstebog</font></h2>
</td>
<td width="50%" valign="top">
<p align="right"><font size="1">
<a target="_blank" href="../guestbook_interface/guestbook/editor/database_editor.asp">
Admin</a></font></td>
</tr>
</table>
<p> </p>
<form method="POST" action="--WEBBOT-SELF--">
<!--webbot bot="SaveDatabase" suggestedext="asp" u-asp-include-url="../_fpclass/fpdbform.inc" s-dataconnection="guestbook" s-recordsource="guestbook" u-database-url="../fpdb/guestbook.mdb" u-confirmation-url="guestconfirm.asp" s-builtin-fields="REMOTE_HOST Timestamp" s-builtin-dbfields="IP Tid" s-form-fields="Mail URL Navn Kommentar" s-form-dbfields="Mail URL Navn Kommentar" startspan --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"><!--#include file="../_fpclass/fpdbform.inc"--><!--webbot bot="SaveDatabase" endspan i-checksum="34604" --><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="15%"><font face="Comic Sans MS">Navn :</font></td>
<td width="85%"><input type="text" name="Navn" size="35"></td>
</tr>
<tr>
<td width="15%"><font face="Comic Sans MS">E-mail :</font></td>
<td width="85%"><input type="text" name="Mail" size="35"></td>
</tr>
<tr>
<td width="15%"><font face="Comic Sans MS">Hjemmeside :</font></td>
<td width="85%"><input type="text" name="URL" size="35"></td>
</tr>
<tr>
<td width="15%" valign="middle"><font face="Comic Sans MS">Kommentar :</font></td>
<td width="85%"><textarea rows="8" name="Kommentar" cols="45"></textarea></td>
</tr>
<tr>
<td width="15%"><input type="submit" value="Send" name="Send">
<input type="reset" value=" Slet " name="Slet"></td>
<td width="85%"> </td>
</tr>
</table>
</form>
<hr>
<!--webbot bot="DatabaseRegionStart" s-columnnames="nummer,Navn,Mail,URL,Tid,IP,Kommentar" s-columntypes="3,202,202,202,135,202,203" s-dataconnection="guestbook" b-tableformat="FALSE" b-menuformat="FALSE" s-menuchoice="nummer" s-menuvalue="nummer" b-tableborder="TRUE" b-tableexpand="TRUE" b-tableheader="TRUE" b-listlabels="TRUE" b-listseparator="TRUE" i-listformat="0" b-makeform="TRUE" s-recordsource="guestbook" s-displaycolumns="nummer,Navn,Mail,URL,Tid,Kommentar" s-criteria s-order="[nummer] -" s-sql="SELECT * FROM guestbook ORDER BY nummer DESC" b-procedure="FALSE" clientside suggestedext="asp" s-defaultfields s-norecordsfound="No records returned." i-maxrecords="256" i-groupsize="20" botid="0" u-dblib="../_fpclass/fpdblib.inc" u-dbrgn1="../_fpclass/fpdbrgn1.inc" u-dbrgn2="../_fpclass/fpdbrgn2.inc" tag="BODY" preview="<table border=0 width="100%"><tr><td bgcolor="#FFFF00" align="left"><font color="#000000">This is the start of a Database Results region.</font></td></tr></table>" startspan b-WasTableFormat="FALSE" --><!--#include file="../_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>The Database Results component on this page is unable to display database content. The page must have a filename ending in '.asp', and the web must be hosted on a server that supports Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT * FROM guestbook ORDER BY nummer DESC"
fp_sDefault=""
fp_sNoRecords="No records returned."
fp_sDataConn="guestbook"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=20
fp_fTableFormat=False
fp_fMenuFormat=False
fp_sMenuChoice="nummer"
fp_sMenuValue="nummer"
fp_iDisplayCols=6
fp_fCustomQuery=False
BOTID=0
fp_iRegion=BOTID
%>
<!--#include file="../_fpclass/fpdbrgn1.inc"-->
<!--webbot bot="DatabaseRegionStart" endspan i-CheckSum="14856" --><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="901" id="AutoNumber6">
<tr>
<td width="225"> </td>
<td width="89"> </td>
<td width="361"> </td>
<td width="226"> </td>
</tr>
<tr>
<td width="225"> </td>
<td width="89"><b>Navn:</b></td>
<td width="361"><!--webbot bot="DatabaseResultColumn" s-columnnames="nummer,Navn,Mail,URL,Tid,IP,Kommentar" s-column="Navn" b-tableformat="FALSE" b-hashtml="FALSE" b-makelink="FALSE" clientside b-MenuFormat preview="<font size="-1">&lt;&lt;</font>Navn<font size="-1">&gt;&gt;</font>" startspan --><%=FP_FieldVal(fp_rs,"Navn")%><!--webbot bot="DatabaseResultColumn" endspan i-CheckSum="3927" --></td>
<td width="226"> </td>
</tr>
<tr>
<td width="225"> </td>
<td width="89"><b>Mail:</b></td>
<td width="361"><a href="mailto:<%=FP_FieldLink(fp_rs,"Mail")%>"><!--webbot bot="DatabaseResultColumn" s-columnnames="nummer,Navn,Mail,URL,Tid,IP,Kommentar" s-column="Mail" b-tableformat="FALSE" b-hashtml="FALSE" b-makelink="FALSE" clientside b-MenuFormat preview="<font size="-1">&lt;&lt;</font>Mail<font size="-1">&gt;&gt;</font>" startspan --><%=FP_FieldVal(fp_rs,"Mail")%><!--webbot bot="DatabaseResultColumn" endspan i-CheckSum="3846" --></a></td>
<td width="226"> </td>
</tr>
<tr>
<td width="225"> </td>
<td width="89"><b>URL:</b></td>
<td width="361"><a target="_blank" href="//<%=FP_FieldLink(fp_rs,"URL")%>"><!--webbot bot="DatabaseResultColumn" s-columnnames="nummer,Navn,Mail,URL,Tid,IP,Kommentar" s-column="URL" b-tableformat="FALSE" b-hashtml="FALSE" b-makelink="FALSE" clientside b-MenuFormat preview="<font size="-1">&lt;&lt;</font>URL<font size="-1">&gt;&gt;</font>" startspan --><%=FP_FieldVal(fp_rs,"URL")%><!--webbot bot="DatabaseResultColumn" endspan i-CheckSum="673" --></a></td>
<td width="226"> </td>
</tr>
<tr>
<td width="225"> </td>
<td width="89"><b>Tid:</b></td>
<td width="361"><!--webbot bot="DatabaseResultColumn" s-columnnames="nummer,Navn,Mail,URL,Tid,IP,Kommentar" s-column="Tid" b-tableformat="FALSE" b-hashtml="FALSE" b-makelink="FALSE" clientside b-MenuFormat preview="<font size="-1">&lt;&lt;</font>Tid<font size="-1">&gt;&gt;</font>" startspan --><%=FP_FieldVal(fp_rs,"Tid")%><!--webbot bot="DatabaseResultColumn" endspan i-CheckSum="3577" --></td>
<td width="226"> </td>
</tr>
<tr>
<td width="225"> </td>
<td width="89"> </td>
<td width="361"> </td>
<td width="226"> </td>
</tr>
<tr>
<td width="225"> </td>
<td width="450" colspan="2" style="border-left-width: 1; border-right-width: 1; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1">
<p align="center"><!--webbot bot="DatabaseResultColumn" s-columnnames="nummer,Navn,Mail,URL,Tid,IP,Kommentar" s-column="Kommentar" b-tableformat="FALSE" b-hashtml="FALSE" b-makelink="FALSE" clientside b-MenuFormat preview="<font size="-1">&lt;&lt;</font>Kommentar<font size="-1">&gt;&gt;</font>" startspan --><%=FP_FieldVal(fp_rs,"Kommentar")%><!--webbot bot="DatabaseResultColumn" endspan i-CheckSum="20731" --></p>
<p align="center"> </td>
<td width="226"> </td>
</tr>
</table>
<!--webbot bot="DatabaseRegionEnd" b-tableformat="FALSE" b-menuformat="FALSE" u-dbrgn2="../_fpclass/fpdbrgn2.inc" i-groupsize="20" clientside tag="BODY" preview="<table border=0 width="100%"><tr><td bgcolor="#FFFF00" align="left"><font color="#000000">This is the end of a Database Results region.</font></td></tr><TR><TD ALIGN=LEFT VALIGN=MIDDLE><NOBR><INPUT TYPE=Button VALUE=" |< "><INPUT TYPE=Button VALUE=" < "><INPUT TYPE=Button VALUE=" > "><INPUT TYPE=Button VALUE=" >| "> [1/20]</NOBR><BR></td></tr></table>" startspan --><!--#include file="../_fpclass/fpdbrgn2.inc"-->
<!--webbot bot="DatabaseRegionEnd" endspan i-CheckSum="56926" --></body></html>
