Nedenfor er vist min formmail
Når så man indtaster f.eks. 2 stks "1280x1024" så skal den
automatisk opdaterer min database. Mit asp script er nederst på
siden, det er et script der viser hvor mange varer der er på
lager af hver slags. Hvis så man har bestilt de 2 af "1280x1024"
så skal det script jo vise 2 stks mindre (fordi databasen er
opdateret med 2 mindre!)
<form action="
http://cgi.inet.tele.dk/cgi-bin/form_processor.cgi"
method="post" name="Bestilling">
<h5>Navn:</h5>
<input type="text" size="50" maxlength="50" name="Navn">
<h5>E-mail:</h5>
<input type="text" size="50" maxlength="50" name="E-mail">
<h5>Adresse:</h5>
<input type="text" size="50" maxlength="50" name="Adresse">
<h5> Postnummer og by:</h5>
<input type="text" size="50" maxlength="50" name="Postnrby">
<h5>Ydelser</h5>
<table>
<tr>
<td width="100"><h5>Navn</h5></td>
<td width="100"></td>
<td width="100" align="right"><h5>Pris</h5></td>
<td width="60" align="center"><h5>Antal</h5></td>
</tr>
<tr>
<td><h5>Hjemmeside</h5></td>
<td><h5>Privat (1-5 sider)</h5></td>
<td align="right"><h5>600 pr. side</h5></td>
<td align="center">
<input type="text" size="2" maxlength="2" name="Privat (1-5
sider)"></td>
</tr>
<tr>
<td><h5>Hjemmeside</h5></td>
<td><h5>Mindre virksomhed (5-? sider)</h5></td>
<td align="right"><h5>1000 pr. side</h5></td>
<td align="center">
<input type="text" size="2" maxlength="2" name="Mindre virksomhed
(5-? sider)"></td>
</tr>
<tr>
<td><h5>Grafik</h5></td>
<td><h5>1280x1024</h5></td>
<td align="right"><h5>150 pr. stk.</h5></td>
<td align="center">
<input type="text" size="2" maxlength="2" name="1280x1024"></td>
</tr>
<tr>
<td><h5>Grafik</h5></td>
<td><h5>1024x768</h5></td>
<td align="right"><h5>100 pr. stk.</h5></td>
<td align="center">
<input type="text" size="2" maxlength="2" name="1024x768"></td>
</tr>
<tr>
<td><h5>Grafik</h5></td>
<td><h5>Logo</h5></td>
<td align="right"><h5>50 pr. stk.</h5></td>
<td align="center">
<input type="text" size="2" maxlength="2" name="Logo"></td>
</tr>
</table>
<h5>
Kommentarer:<br>
<textarea wrap="physical" rows="5" cols="60"
name="Kommentarer"></textarea>
</h5>
<INPUT TYPE = "hidden" NAME = "mailto" VALUE =
"hhx3323@edu.selandia-ceu.dk">
<INPUT TYPE = "hidden" NAME = "response_title" VALUE =
"Bestilling er sendt">
<INPUT TYPE = "hidden" NAME = "variable_order" VALUE =
"Navn|E-mail|Adresse|Postnrby|Privat (1-5 sider)|Mindre
virksomhed (5-? sider)|1280x1024|1024x768|Logo|Kommentarer">
<INPUT TYPE = "hidden" NAME = "required_variables" VALUE =
"Navn|E-mail|Adresse|Postnrby">
<INPUT TYPE = "hidden" NAME = "email_subject" VALUE =
"Bestilling">
<INPUT TYPE = "hidden" NAME = "url_of_this_form" VALUE =
"
http://www.hhx.dk/elever/hhx33/hhx3323/bestilling2.htm">
<INPUT TYPE = "hidden" NAME = "return_link_name" VALUE =
"Forsiden">
<INPUT TYPE = "hidden" NAME = "return_link_url" VALUE =
"
http://www.hhx.dk/elever/hhx33/hhx3323/index.html">
<INPUT TYPE = "hidden" NAME = "response_title" VALUE = "Tak for
dit brev">
<title="Bestillingen vil blive sendt til
hhx3323@edu.selandia-ceu.dk">
<INPUT TYPE = "submit" VALUE = "Send bestilling">
<input type="reset" name="Slet" value="Nulstil" title="Dine
indtastninger slettes">
ASP scriptet
<%
' starter forbindelsen
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("tutorial.mdb")
Conn.Open DSN
' vælg hvilken sql forespørgsel der skal udføres
strSQL = "Select * from personer"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
' en løkke
Do
' skriver hvad indholdet af fornavn er
Response.Write rs("Fornavn") &"<br>"
' gå til den næste record
rs.MoveNext
' fortsæt indtil slutningen (EOF = End Of File)
Loop While Not rs.EOF
' Luk databaseforbindelse af sikkerhedsmæssige forhold
Conn.Close
Set Conn = Nothing
%>
</h5>
</td>
<td align="right" width="27%"><h5><%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("tutorial.mdb")
Conn.Open DSN
strSQL = "Select * from personer"
Set rs = Conn.Execute(strSQL)
Do
Response.Write rs("Varer") & " På lager " & "<br>"
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>
</h5>
</td>
<td valign="top" width="20%"><h5><%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("tutorial.mdb")
Conn.Open DSN
strSQL = "Select * from personer"
Set rs = Conn.Execute(strSQL)
Do
Response.Write rs("Pris pr enhed") & " kr. pr. enhed " & "<br>"
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>
</form>
kan i hjælpe?
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials