Opdatere et felt med bynavn efter der er skrevet postnummer
Hej alleI en formular hvor man udfylder adresse vil jeg gerne have feltet 'by' til at udfylde sig selv så snart brugeren har udfyldt feltet 'postnr'
Jeg har allerede en accessdatabase med kolonerne 'Postnr' og 'By'
De udfyldte felter sender til tabellen 'abonnement' i database.mdb men postnummerfunktionen ligger i 'postnummer' i samme databasefil
Koden hvor det skal sættes ind ser således ud:
<%
Response.Buffer = True
' tjekker om disse felter er udfyldt !
navn = Request("navn")
adresse = Request("adresse")
postnr = Request("postnr")
by = Request("by")
cpr = Request("cpr")
cpr2 = Request("cpr2")
kon = Request("kon")
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb") & ";UID=admin;PWD=;"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From abonnement"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>
<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then
' Skriver fejl, hvis der ikke er indtastet en oplysning.
if navn = "" then
Response.Write("Du skal oplyse dit navn<br></font>")
end if
if adresse = "" then
Response.Write("Du skal oplyse din adresse!<br></font>")
end if
if postnr= "" then
Response.Write("Du skal oplyse postnummer!<br></font>")
end if
if by= "" then
Response.Write("Du skal oplyse by!<br></font>")
end if
if cpr= "" then
Response.Write("Du skal oplyse den første del af dit CPR nummer.<br></font>")
end if
if cpr2= "" then
Response.Write("Du skal oplyse den sidste del af dit CPR nummer.<br></font>")
end if
if kon= "" then
Response.Write("Du skal angive dit køn!<br></font>")
end if
if navn <> "" AND adresse <> "" AND by <> "" AND cpr <> "" AND cpr2 <> "" AND kon <> "" then
rs.AddNew
rs("navn") = Request.form("navn")
rs("adresse") = Request.form("adresse")
rs("postnr") = Request.form("postnr")
rs("by") = Request.form("by")
rs("cpr") = Request.form("cpr")
rs("cpr2") = Request.form("cpr2")
rs("kon") = Request.form("kon")
rs("email") = Request.form("email")
rs("website") = Request.form("website")
rs("om") = Request.form("om")
rs.update
Response.Redirect("tilmeld_ok.asp")
end if
end if %> <form method="post" action="adduser.asp" id=form name=form>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="140" valign="top" class="skrift">Navn: <font color="#FF0000">*</font></td>
<td>
<input type="text" name="navn" value="" size="30" maxlength="50" class="bottom">
</td>
</tr>
<tr>
<td width="140" valign="top" class="skrift">Adresse: <font color="#FF0000">*</font></td>
<td>
<input type="text" name="adresse" value="" size="30" maxlength="50" class="bottom">
</td>
</tr>
<tr>
<td width="140" valign="top" class="skrift"> Postnummer & by:
<font color="#FF0000">*</font></td>
<td>
<input type="text" name="postnr" value="" size="4" maxlength="4" class="bottom">
<input type="text" name="by" value="" size="22" maxlength="100" class="bottom">
</td>
</tr>
<tr>
<td width="140" valign="top" class="skrift">Cpr: <font color="#FF0000">*</font></td>
<td>
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="91">
<input type="text" name="cpr" maxlength="6" size="14" class="bottom">
</td>
<td width="108"> -
<input type="text" name="cpr2" maxlength="4" size="10" class="bottom">
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="140" valign="top" class="skrift">Køn: <font color="#FF0000">*</font></td>
<td>
<select name="kon" class="bottom">
<option value="-" selected>Vælg køn</option>
<option value="Mand">Mand</option>
<option value="Kvinde">Kvinde</option>
</select>
</td>
</tr>
<tr>
<td width="140" valign="top" class="skrift">Email:</td>
<td>
<input type="text" name="email" value="" size="30" maxlength="255" class="bottom">
</td>
</tr>
<tr>
<td width="140" valign="top" class="skrift">Website:</td>
<td>
<input type="text" name="website" value="http://" size="30" maxlength="255" class="bottom">
</td>
</tr>
<tr>
<td width="140" valign="top" class="skrift">Bemærkninger:</td>
<td>
<textarea name="om" rows="4" cols="30" class="bottom"></textarea>
</td>
</tr>
<tr>
<td width="110" valign="top"> </td>
<td>
<input type="submit" value="Bliv abbonnement" class="bottom">
<input type="reset" name="Reset" value="Slet alt">
</td>
</tr>
</table>
