Kan ikke hente fra DB?
Jeg kan lægge data i DB men ikke hente, hvad gør jeg forkert? jeg henter som Request.Form) men hvis det er bedre at gøre det DB hører jeg gerne hvordan :)Det går galt i sidste linie, jeg ener da det er korrekt det jeg skriver.
<% Response.Buffer = True %>
<HTML>
<!--This file created 16:07 19-09-02 by 3.0-->
<HEAD>
<TITLE>skadeanmeldelse1</TITLE>
<META NAME=GENERATOR CONTENT=" 3.0">
<X-CLARIS-WINDOW TOP=0 BOTTOM=435 LEFT=0 RIGHT=788>
<X-CLARIS-REMOTESAVE SERVER="www.comgrosinfo.dk" USER="comgrosinfo.dk" DIR="/comgrosinfo.dk/comgrosinfo.dk/www/serviceinfo/" FILE="">
</HEAD>
<%
On Error Resume Next
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=d:\websider\global\comgrosinfo.dk\comgrosinfo.dk\db\skadeanmeldelse.mdb"
Conn.Open DSN
' SQL sætning opbygges
strSQL = "Insert into skadeanmeldelse (kundenavn, kundeadr, kundepost, kundeby, kundetele, momsregistreret, andetselskab, forsikringsselskab, forsikringpolicenr, type, nummer, hvorsketeskaden, skadeadresse, skadepostnummer, skadeby, skadedato, beskrivelseafskaden, andreinvolverede, involveretnavn, involveretadresse, involveretpostnr, involveretby, involverettele, involveretforsikring, involveretpolicenr, vidner, vidnenavn, vidneadresse, vidnepostnr, vidneby, vidnetele ) values('" & Request.Form("kundenavn") & "', '" & Request.Form("kundeadr") & "', '" & Request.Form("kundepost") & "', '" & Request.Form("kundeby") & "', '" & Request.Form("kundetele") & "', '" & Request.Form("momsregistreret") & "', '" & Request.Form("andetselskab") & "', '" & Request.Form("forsikringsselskab") & "', '" & Request.Form("forsikringpolicenr")& "', '" & Request.Form("type") & "', '" & Request.Form("nummer") & "', '" & Request.Form("hvorsketeskaden") & "', '" & Request.Form("skadeadresse") & "', '" & Request.Form("skadepostnummer")& "', '" & Request.Form("skadeby")& "', '" & Request.Form("skadedato")& "', '" & Request.Form("beskrivelseafskaden")& "', '" & Request.Form("andreinvolverede")& "', '" & Request.Form("involveretnavn")& "', '" & Request.Form("involveretadresse")& "', '" & Request.Form("involveretpostnr")& "', '" & Request.Form("involveretby")& "', '" & Request.Form("involverettele")& "', '" & Request.Form("involveretforsikring")& "', '" & Request.Form("involveretpolicenr")& "', '" & Request.Form("vidner")& "', '" & Request.Form("vidnenavn")& "', '" & Request.Form("vidneadresse")& "', '" & Request.Form("vidnepostnr")& "', '" & Request.Form("vidneby")& "', '" & Request.Form("vidnetele")& "')"
' SQL sætning eksekveres
Conn.Execute(strSQL)
'If Err.Number <> 0 then
'Response.Redirect("http://www.comgrosinfo.dk/fejlside.asp")
'End if
%>
<BODY BGCOLOR="#FFFFFF" LINK="#000066" ALINK="#000066" VLINK="#000066" leftmargin=20 topmargin=20 marginwidth=20 marginheight=20>
<P><div align="center"> <TABLE BORDER=0 CELLSPACING=0 WIDTH="100%">
<TR>
<TD COLSPAN=3 BGCOLOR="#000000">
<P><TABLE BORDER=0 BGCOLOR="#E3FFFF" CELLSPACING=0 CELLPADDING=12 WIDTH="100%">
<TR>
<TD>
<P><div align="center"><FONT SIZE="-1" FACE="Arial, Helvetica, sans-serif" COLOR="#000066"><B>SKADEANMELDELSE
til All•risk Total og Special</B></FONT></div></P>
</TD>
</TR>
</TABLE>
</P>
</TD>
</TR>
<TR>
<TD COLSPAN=3 HEIGHT=10>
<P></P>
</TD>
</TR>
<TR>
<TD BGCOLOR="#000000">
<P><TABLE BORDER=0 BGCOLOR="#E3FFFF" CELLSPACING=0 CELLPADDING=8 WIDTH="100%">
<TR>
<TD>
<P><FONT SIZE="-2" FACE="Arial, Helvetica, sans-serif" COLOR="#000066"><B>Rettelser
?</B><BR>
Ønsker du at rette i dine oplysninger
</FONT><A HREF="body_skadeanm.htm" onclick="history.go(-1);return false"><FONT SIZE="-2" FACE="Arial, Helvetica, sans-serif" COLOR="#000066">klik
her</FONT></A><FONT SIZE="-2" FACE="Arial, Helvetica, sans-serif" COLOR="#000066">
! </FONT></P>
</TD>
</TR>
</TABLE>
</P>
</TD>
<TD WIDTH=10>
<P> </P>
</TD>
<TD BGCOLOR="#000000">
<P><TABLE BORDER=0 BGCOLOR="#E3FFFF" CELLSPACING=0 CELLPADDING=8 WIDTH="100%">
<TR>
<TD>
<P><FONT SIZE="-2" FACE="Arial, Helvetica, sans-serif" COLOR="#000066"><B>Print
og send skadeanmeldelsen ? </B><BR>
Er de indtastede oplysningerne korrekte
</FONT><A HREF="java script:window.print()"><FONT SIZE="-2" FACE="Arial, Helvetica, sans-serif" COLOR="#000066">klik
her</FONT></A><FONT SIZE="-2" FACE="Arial, Helvetica, sans-serif" COLOR="#000066">
! </FONT></P>
</TD>
</TR>
</TABLE>
</P>
</TD>
</TR>
</TABLE>
<BR>
<div align="left"></P>
<P><FONT SIZE="-2" FACE="Arial, Helvetica, sans-serif"><BR>
<B>Kopi af forsikringscertifikat og købsfaktura/regning skal
vedlægges.<BR>
Ved tyveri af udstyret skal kopi af politianmeldelse vedlægges.
</B><BR>
<BR>
Forsikringstagers navn:<%Request.Form("kundenavn")%><BR>
