Opret ny post i database
HejJeg har lavet en formular hvori man indtaster nogle person oplysninger (navn adresse postnr by osv). Jeg fandt et javascript herinde på Eksperten som automatisk indsætter bynavn i et tekstfelt alt efter hvilket postnr man har valgt.
Problemet opstår når alle disse data skal indsættes i databasen. Bynavnet mangler.
Kode1:
<SCRIPT LANGUAGE="JavaScript">
function postnrChange(){
var kunder = new Array();
kunder[0] = "";
<%
set RS= Conn.Execute ("SELECT * FROM T_Postnr")
OptionString = "<OPTION VALUE=""none"">Vælg her...</OPTION>"
i = 1
Do Until RS.EOF
OptionString = OptionString & "<OPTION VALUE=""" & rs("Postnr") & """>" & rs("Postnr") & "</OPTION>"
%>
kunder[<%=i%>] = "<%=rs("By")%>";
<%
i = i +1
rs.MoveNext
Loop
%>
if (document.testForm.postnr.selectedIndex > 0)
{
document.testForm.bynavn.value = kunder[document.testForm.postnr.selectedIndex];
}
else
{
document.testForm.bynavn.value = "";
}
}
</SCRIPT>
</head>
<body bgcolor="#ffffff" topmargin="2" onload="postnrChange()">
<table bgcolor="#CAD5E7" style="border: 1px #000000 solid;" cellspacing="0" cellpadding="2" width="723" height="100%" align="center">
<tr>
<td valign="top">
<form name="testForm" method="post" action="indsaet_personopl.asp">
<table bgcolor="#CAD5E7" border="0" cellspacing="0" cellpadding="2" width="50%" align="left" bordercolor="#000000" class="formTekst">
<tr>
<td colspan="2" bgcolor="#ffffff"><strong><div align="center">Indtast brugeroplysninger</div></strong></td>
</tr>
<tr>
<td valign="top">Brugernavn:</td>
<td valign="top" align="right"><input type="text" name="brugernavn"></td>
</tr>
<tr>
<td valign="top">Adgangskode (Max.8):</td>
<td valign="top" align="right"><input type="password" name="adgangskode" maxlength="8"></td>
</tr>
<tr>
<td valign="top">CPR-nr: (uden bindestreg)</td>
<td valign="top" align="right"><input type="text" name="cprnr" value="0000000000"></td>
</tr>
<tr>
<td valign="top">Fornavn:</td>
<td valign="top" align="right"><input type="text" name="fornavn"></td>
</tr>
<tr>
<td valign="top">Mellemnavn:</td>
<td valign="top" align="right"><input type="text" name="mellemnavn"></td>
</tr>
<tr>
<td valign="top">Efternavn:</td>
<td valign="top" align="right"><input type="text" name="efternavn"></td>
</tr>
<tr>
<td valign="top">Adresse1:</td>
<td valign="top" align="right"><input type="text" name="adresse1"></td>
</tr>
<tr>
<td valign="top">Adresse2:</td>
<td valign="top" align="right"><input type="text" name="adresse2"></td>
</tr>
<tr>
<td valign="top">Postnr:</td>
<td valign="top" align="right">
<select name="postnr" OnChange="postnrChange();"><%=OptionString%></select>
</td>
</tr>
<tr>
<td valign="top">By:</td>
<td valign="top" align="right"><input type="text" name="bynavn" value=""></td>
</tr>
<tr>
<td valign="top">Land</td>
<td valign="top" align="right"><input type="text" name="land"></td>
</tr>
<tr>
<td valign="top">Telefon-privat:</td>
<td valign="top" align="right"><input type="text" name="tlfprivat"></td>
</tr>
<tr>
<td valign="top">Telefon-mobil</td>
<td valign="top" align="right"><input type="text" name="tlfmobil"></td>
</tr>
<tr>
<td valign="top">E-mail:</td>
<td valign="top" align="right"><input type="text" name="email"></td>
</tr>
<tr>
<td> </td>
<td align="center"><input type="submit" name="Submit" value="Tilføj data"></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
Kode2:
<!--#include file="dbforb.asp"-->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "T_Person", Conn, 1, 3, adOpenForwardOnly
rs.AddNew
rs("Brugernavn") = Request.Form("brugernavn")
rs("Adgangskode") = Request.Form("adgangskode")
rs("CPRnr") = Request.Form("cprnr")
rs("Fornavn") = Request.Form("fornavn")
rs("Mellemnavn") = Request.Form("mellemnavn")
rs("Efternavn") = Request.Form("efternavn")
rs("Adresse1") = Request.Form("adresse1")
rs("Adresse2") = Request.Form("adresse2")
rs("Postnr") = Request.Form("postnr")
rs("By") = Request.Form("by")
rs("Land") = Request.Form("land")
rs("Tlfprivat") = Request.Form("tlfprivat")
rs("Tlfmobil") = Request.Form("tlfmobil")
rs("Email") = Request.Form("email")
rs.AddNew
Dim By
By = Request.Form("by")
Response.Write "Byens navn er" & By
%>
Håber nogen kan hjælpe.
