Avatar billede danskeb Nybegynder
19. september 2002 - 17:42 Der er 7 kommentarer og
1 løsning

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&#149;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>
                  &Oslash;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>&nbsp;</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&oslash;bsfaktura/regning skal
vedl&aelig;gges.<BR>
Ved tyveri af udstyret skal kopi af politianmeldelse vedl&aelig;gges.
</B><BR>
<BR>
Forsikringstagers navn:<%Request.Form("kundenavn")%><BR>
Avatar billede loss Nybegynder
19. september 2002 - 18:03 #1
Meget forvirrende :)..

hvor sender du "Kundenavn" fra.. har du navgivet action rigtigt i den fil hvor Form med "kundenavn" ligger. men det burde du jo have hvis du kan opdatere databasen..

men hvor henter du noget fra databasen henne ???

du skriver jo bare formen ud igen
Avatar billede danskeb Nybegynder
19. september 2002 - 18:06 #2
Sorry jeg henter her:
<%




' Opbygger en dynamisk SQL streng
strSQL = "SELECT ID, kundenavn FROM skadeanmeldelse WHERE"

strSQL = strSQL & " (kundenavn LIKE '" & strKeyword & "')"

' Skaber DSNLess forbindelse til DBen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\websider\global\comgrosinfo.dk\comgrosinfo.dk\db\skadeanmeldelse.mdb"
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)


  %>


Det burde vel gøre så jeg kan skrive ud fra DB med følgende:

Forsikringstagers navn:<%Response.Write rs("kundenavn")%><BR>
Avatar billede ras2000 Nybegynder
19. september 2002 - 18:11 #3
Hvad får du for en fejl? Og har du prøvet at åbne recordettet uden søgestrengen?
Avatar billede loss Nybegynder
19. september 2002 - 18:14 #4
Har du prøvet at undlade din where sætning, og bare hente kundenavn ud..

fx med where ID = 1..

<%=RS("Kundenavn")%>

for at se om det er der fejlen ligger..
Avatar billede Jman Praktikant
19. september 2002 - 18:14 #5
..er ikke sikker, men

strSQL = strSQL & " (kundenavn LIKE '%" & strKeyword & "%')"
Avatar billede loss Nybegynder
19. september 2002 - 18:22 #6
prøv bare at skrive

strSQL = "select kundenavn from skadeanmeldelse"

og se hvad der sker hvis du så skriver

<%=RS("kundenavn")%>
Avatar billede danskeb Nybegynder
25. september 2002 - 11:56 #7
ingen svar
Avatar billede ras2000 Nybegynder
26. september 2002 - 08:53 #8
Du kunne jo have prøvet at svare nogle af de spørgsmål de hjælpsomme folk stillede, så havde du nok fået mere ud af spørgsmålet...
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester