afvikle script når form postes.

Hvis du ligger koden som gemmer i databasen så kan du tjekke på om en form er blevet POST'et til siden og så opdater database, så når siden loades normalt så vises kun formen..:

if request.Servervariables("REQUEST_METHOD") = "POST" then

  ... Opdater Databasen

end if


.. Vis form'en her

Du kan evt lave det sådan at den ikke viser formen når databasen bliver opdateret ved at ændre end if til else sådnn her:



if request.Servervariables("REQUEST_METHOD") = "POST" then

  ... Opdater Databasen

else


.. Vis form'en her


end if

Det ville være noget lettere hvis jeg kunne bruge scriptet som det er uden at ændre for meget på indholdet.

Men jeg kunne vel også eksekvere koden på ok.asp ?
Det har jeg prøvet men så et formen tom ?

Jeg tror lige jer har misforstået det .. du vil udføre et script når man trykker på submit, her Formcheck().

<FORM ACTION="ok.asp" METHOD=POST onsubmit="return Formcheck();">


Eks på function som kan valider man har udfyldt det hele inden form sendes, man skal huske at returnere true for at formen bliver endt vidre.:


SCRIPT LANGUAGE="JavaScript">
function Formcheck() {

// her kan laves tjek på at form felter er udfyldt

return true
}
</SCRIPT>

Jeg skal prøve at forklare.

Når siden køres genereres der et IDNUMMER og hvis formen afvikles skal der skrives til DB ellers ikke.

Problemet er at hvis brugeren reloader siden eller trykkertilbage i browseren og frem opdateres DB, det må den ikke.

Så den skal BARE køre scriptet hvis formen submittes :)

Så er det som jeg først har vist.

if request.Servervariables("REQUEST_METHOD") = "POST" then

  .Opdater databasen

end if

Eller du kan bare tilføje en querystring i "action"-attributten i form-tag'et:
?updateDB=true

Og så længere nede i din kode:
if request.querystring("updateDB") = "true" then
  ' update db
end if

Næhh den kører scriptet alligevel, her er hele koden, hvis du kan finde en fejl.

<% Response.Buffer = True %>
<HTML>
<!--This file created 16:07  19-09-02 by                          3.0-->
<HEAD>
  <TITLE></TITLE>
<SCRIPT LANGUAGE=javascript><!--
function Formcheck() {
    window.print()
    return true;



}
//--></SCRIPT>
<%if request.Servervariables("REQUEST_METHOD") = "POST" then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=c:\websider\info.dk\db\skadeanmeldelse.mdb"
Conn.Open DSN
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, IDNUMMER ) 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")& "', '" & (IDNUMMER)& "')"
Conn.Execute(strSQL)
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=c:\websider\info.dk\db\database.mdb"
Conn.Open DSN
strSQL = "Insert into database (status, nummer, kundenavn, kundeadr, kundeby, kundetele, type, password) values('" & Request.Form("status")& "', '" & Request.Form("nummer")& "', '" & Request.Form("kundenavn")& "', '" & Request.Form("kundeadr")& "', '" & Request.Form("kundeby") & "', '" & Request.Form("kundetele") & "', '" & Request.Form("type") & "', '" & password & "')"
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
end if
%>
<META NAME=GENERATOR CONTENT="Microsoft FrontPage 4.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="">
  <X-CLARIS-TAGVIEW MODE=minimal>

</HEAD>

 
<BODY BGCOLOR="#FFFFFF" LINK="#000066" ALINK="#000066" VLINK="#000066" leftmargin=20 topmargin=20 marginwidth=20 marginheight=20>
<P><font face="Arial" size="1">&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><div align="center" style="width: 734; height: 570">

<div align="left">
  <table border="0" width="100%">
    <tr>
              <TD>
                  <div align="center">
                    <p align="left"><B><FONT SIZE="-1" FACE="Arial, Helvetica, sans-serif">&nbsp;&nbsp;&nbsp;&nbsp;
                    Skadenummer <%
strSQL = "SELECT* FROM skadeanmeldelse"
strSQL = strSQL & " ORDER BY ID DESC"
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=c:\websider\service-info.dk\db\skadeanmeldelse.mdb"
Conn.Open DSN
Conn.Execute(strSQL)
Set rs = Conn.Execute(strSQL)
IDNUMMER = rs("ID") & Day(Date()) & Month(Date()) & Year(Date())
response.write IDNUMMER

%></FONT></B></div>
              </TD>
    </tr>
    <tr>
<%password = IDNUMMER
%>
              <TD>
                  <b><font size="-1" face="Arial, Helvetica, sans-serif"><FORM ACTION="ok.asp" METHOD=POST onsubmit="return Formcheck()">
<input type="submit" style="background-color: #004F7A; color: #FFFFFF; font-family: Arial; font-size: 8 pt; line-height: 200%; word-spacing: 0; text-indent: 0; border-style: solid; border-color: #FFFFFF; margin: 0" value="Udskriv skadeanmeldelse " ;window.print()>

</form>
                  </b>
                  </font>
              </TD>
    </tr>
  </table>

<P><FONT SIZE="-2" FACE="Arial, Helvetica, sans-serif">


Forsikringstagers navn:  <%response.write Request.form("kundenavn")%><BR>
Adresse:  <%response.write Request.form("kundeadr")%><BR>
Postnr. og by:  <%response.write Request.form("kundepost") & Request.form("kundeby")%><BR>
Telefon i dagtimerne:  <%response.write Request.form("kundetele")%><BR>
Momsregistreret:  <%response.write Request.form("momsregistreret")%><BR>
Forsikret andet selskab:  <%response.write Request.form("andetselskab")%><BR>
Forsikringsselskab:  <%response.write Request.form("forsikringsselskab")%><BR>
Policenr.:  <%response.write Request.form("forsikringpolicenr")%><BR>
Skadet udstyr:  <%response.write Request.form("type")%><BR>
Købt på faktura nummer:  <%response.write Request.form("nummer")%><BR>
Stedet for skaden:  <%response.write Request.form("hvorsketeskaden")%><BR>
Adresse:  <%response.write Request.form("skadeadresse")%><BR>
Postnr. og by:  <%response.write Request.form("skadepostnummer") & Request.form("skadeby")%><BR>
Dato:  <%response.write Request.form("skadedato")%><BR>
Beskrivelse af skaden:  <%response.write Request.form("beskrivelseafskaden")%><BR>
Andre involverede:  <%response.write Request.form("andreinvolverede")%><BR>
Navn:  <%response.write Request.form("involveretnavn")%><BR>
Adresse:  <%response.write Request.form("involveretadresse")%><BR>
Postnr. og by:  <%response.write Request.form("involveretpostnr") & Request.form("involveretby")%><BR>
Telefon nr.:  <%response.write Request.form("involverettele")%><BR>
Forsikringsselskab:  <%response.write Request.form("involveretforsikring")%><BR>
Police nr.:  <%response.write Request.form("involveretpolicenr")%><BR>
Vidner:  <%response.write Request.form("vidner")%><BR>
Navn:  <%response.write Request.form("vidnenavn")%><BR>
Adresse:  <%response.write Request.form("vidneadresse")%><BR>
Post nr. og By:<%response.write Request.form("vidnepostnr") & Request.form("vidneby")%><BR>
Telefon nr.:  <%response.write Request.form("vidnetele")%><BR>
<BR>
<BR>
</FONT></P>

<P></div> </div>

<HR SIZE=1 WIDTH="70%" ALIGN=left NOSHADE>

<div align="left"><b><font face="Arial, Helvetica, sans-serif" size="2">
Dato, forsikringstagers underskrift samt evt. firmastempel<BR>
  </font></b><FONT SIZE="-2" FACE="Arial, Helvetica, sans-serif">
<BR>
</FONT> <FONT SIZE="-2" FACE="Arial, Helvetica, sans-serif">Henvendelse
vedr&oslash;rende skadebehandling bedes rettet til forhandler eller
USG Danmark.<BR>
</FONT> <FONT SIZE="-2" FACE="Arial, Helvetica, sans-serif"><BR>
<BR>
  <BR>
<BR>
</FONT> <div align="center"> <FONT SIZE="-1" FACE="Arial, Helvetica, sans-serif"><IMG SRC="usglogo50px.gif" WIDTH=50 HEIGHT=31 ALIGN=bottom vspace=10><BR>
<B>USG Danmark</B><BR>
<BR>
</FONT><font size="-2" face="Arial, Helvetica, sans-serif">Købmagergade 2 -
    1150 København K - Telefon 70 210 410 - Fax 70 210 411 -
post@usg-danmark.dk</font><BR>
</div> </div>



</BODY>
</HTML>

Lukket.