ét felt den ikke vil gemme i databasen
HejsaFølgende kode fungerer perfekt pånær ét felt som den bare ikke vil gemme i databasen - nemlig postnr/spostnr. Alle andre felter gemmes perfekt i tabellen - så jeg er sikker på, jeg har fat i den rigtige tabel osv. Der må være et eller andet i koden jeg bare overser - kan I finde det for mig? *SS*
Tabellens postnr ser sådan her ud:
postnr (jeg har kopieret så jeg ved, jeg ikke har skrevet forkert). Jeg havde oprindeligt skrevet byen i tabellen - da den ikke ville tage den ændrede jeg den til postnr (kender jo til problemet med reserverede ord - selvom byen ikke burde være det)
Min kode ser ud som følgende:
<!-- #include file="../Administration/subrutiner.asp" -->
<HTML>
<HEAD>
<!-- Minus AutoDato -->
<TITLE>Hannes Butique</TITLE>
<LINK HREF="../Stylesheets/Stylesheet.css" REL="stylesheet" TYPE="text/css">
<meta name="Generator" content="Stone's WebWriter 4">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</HEAD>
<BODY>
<table>
<tr>
<td width=95% align=center><h1>Hannes Butique</td>
<td width=5% align="center" valign="middle"><img src="../Images/blomster2.gif" width="150" height="150" align="bottom" alt=""></td>
</tr>
</table>
<center><h2>Værelser - Bestilling</h2></center>
<p>
<h5>
<table width="70%" bgcolor="#C1A4A4" align="center">
<tr>
<td><h5>
<%
sWhat = trim(Request("ID"))
sPageAction = trim(Request("Action"))
snavn = Trim(Request.Form("navn"))
sadr = Trim(Request.Form("adr"))
spostnr = Trim(Request.Form("postnr"))
sland = Trim(Request.Form("land"))
semail = Trim(Request.Form("email"))
stlfnr = Trim(Request.Form("tlfnr"))
santalpers = Trim(Request.Form("antalpers"))
sselectankdag = Trim(Request.Form("selectankdag"))
sselectankmdr = Trim(Request.Form("selectankmdr"))
sselectankaar = Trim(Request.Form("selectankaar"))
sklokkeslet = Trim(Request.Form("klokkeslet"))
sselectafgdag = Trim(Request.Form("selectafgdag"))
sselectafgmdr = Trim(Request.Form("selectafgmdr"))
sselectafgaar = Trim(Request.Form("selectafgaar"))
santalovernat = Trim(Request.Form("antalovernat"))
sdato = Trim(Request.Form("dato"))
sbesked = Trim(Request.Form("besked"))
sreservationsstatus = "Ordre"
sbeskedstatus = "Vent"
if lcase(sPageAction) = "" then
ShowEditor
end if
if lcase(sPageAction) = "save" then
SaveVars
ShowOk
end if
Sub ShowEditor
%>
<FORM METHOD="POST" ACTION="bestilling.asp?action=save&ID=<% Response.Write(sWhat) %>">
<INPUT TYPE="hidden" NAME="dato" SIZE="50" VALUE="<%=Now()%>">
<table border="0">
<tr>
<td width="70%">
<TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0">
<tr>
<td colspan="2">
<h3>Resevering
<h5> Husk at udfylde alle punkter med * <br>
Vi behandler din reservation hurtigst muligt og du vil på besked umiddelbart<br>
herefter via email.<br>
</td>
</tr>
<tr>
<td colspan="2">
</td>
</tr>
<TR>
<TD><INPUT TYPE="text" NAME="navn" SIZE="50" VALUE="<% Response.WRite(snavn) %>"></TD>
<TD valign="middle" class="H5"><b>Navn*</b></TD>
</TR>
<TR>
<TD><INPUT TYPE="text" NAME="adr" SIZE="50" VALUE="<% Response.WRite(sadr) %>"></TD>
<TD valign="middle" class="H5"><b>Adresse</b></TD>
</TR>
<TR>
<TD><INPUT TYPE="text" NAME="postnr" SIZE="50" VALUE="<% Response.WRite(spostnr) %>"></TD>
<TD valign="middle" class="H5"><b>By</b></TD>
</TR>
<TR>
<TD><INPUT TYPE="text" NAME="land" SIZE="50" VALUE="<% Response.WRite(sland) %>"></TD>
<TD valign="middle" class="H5"><b>Land*</b></TD>
</TR>
<TR>
<TD><INPUT TYPE="text" NAME="email" SIZE="50" VALUE="<% Response.WRite(semail) %>"></TD>
<TD valign="middle" class="H5"><b>Email*</b></TD>
</TR>
<TR>
<TD><INPUT TYPE="text" NAME="tlfnr" SIZE="50" VALUE="<% Response.WRite(stlfnr) %>"></TD>
<TD valign="middle" class="H5"><b>Tlf nummer*</b></TD>
</TR>
<TR>
<TD><INPUT TYPE="text" NAME="antalpers" SIZE="50" VALUE="<% Response.WRite(santalpers) %>"></TD>
<TD valign="middle" class="H5"><b>Antal personer*</b></TD>
</TR>
<TR>
<TD align="right"><SELECT size=1 name=selectankdag> <OPTION selected>1</OPTION> <OPTION>2</OPTION> <OPTION>3</OPTION> <OPTION>4</OPTION> <OPTION>5</OPTION> <OPTION>6</OPTION> <OPTION>7</OPTION> <OPTION>8</OPTION> <OPTION>9</OPTION> <OPTION>10</OPTION> <OPTION>11</OPTION> <OPTION>12</OPTION> <OPTION>13</OPTION> <OPTION>14</OPTION> <OPTION>15</OPTION> <OPTION>16</OPTION> <OPTION>17</OPTION> <OPTION>18</OPTION> <OPTION>19</OPTION> <OPTION>20</OPTION> <OPTION>21</OPTION> <OPTION>22</OPTION> <OPTION>23</OPTION> <OPTION>24</OPTION> <OPTION>25</OPTION> <OPTION>26</OPTION> <OPTION>27</OPTION> <OPTION>28</OPTION> <OPTION>29</OPTION> <OPTION>30</OPTION> <OPTION>31</OPTION></SELECT><SELECT size=1 name=selectankmdr> <OPTION selected>1</OPTION> <OPTION>2</OPTION> <OPTION>3</OPTION> <OPTION>4</OPTION> <OPTION>5</OPTION> <OPTION>6</OPTION> <OPTION>7</OPTION> <OPTION>8</OPTION> <OPTION>9</OPTION> <OPTION>10</OPTION> <OPTION>11</OPTION> <OPTION>12</OPTION></SELECT>
<SELECT size=1 name=selectankaar> <OPTION selected>2005</OPTION> <OPTION>2006</OPTION> <OPTION>2007</OPTION></SELECT></td>
<td valign="middle" class="H5"><b>Ankomst Dato*</b></TD>
</TR>
<TR>
<TD><INPUT TYPE="text" NAME="klokkeslet" SIZE="50" VALUE="<% Response.WRite(sklokkeslet) %>"></TD>
<TD valign="middle" class="H5"><b>Ca. klokkeslet*</b></TD>
</TR>
<TR>
<TD align="right"><SELECT size=1 name=selectafgdag> <OPTION selected>1</OPTION> <OPTION>2</OPTION> <OPTION>3</OPTION> <OPTION>4</OPTION> <OPTION>5</OPTION> <OPTION>6</OPTION> <OPTION>7</OPTION> <OPTION>8</OPTION> <OPTION>9</OPTION> <OPTION>10</OPTION> <OPTION>11</OPTION> <OPTION>12</OPTION> <OPTION>13</OPTION> <OPTION>14</OPTION> <OPTION>15</OPTION> <OPTION>16</OPTION> <OPTION>17</OPTION> <OPTION>18</OPTION> <OPTION>19</OPTION> <OPTION>20</OPTION> <OPTION>21</OPTION> <OPTION>22</OPTION> <OPTION>23</OPTION> <OPTION>24</OPTION> <OPTION>25</OPTION> <OPTION>26</OPTION> <OPTION>27</OPTION> <OPTION>28</OPTION> <OPTION>29</OPTION> <OPTION>30</OPTION> <OPTION>31</OPTION></SELECT><SELECT size=1 name=selectafgmdr> <OPTION selected>1</OPTION> <OPTION>2</OPTION> <OPTION>3</OPTION> <OPTION>4</OPTION> <OPTION>5</OPTION> <OPTION>6</OPTION> <OPTION>7</OPTION> <OPTION>8</OPTION> <OPTION>9</OPTION> <OPTION>10</OPTION> <OPTION>11</OPTION> <OPTION>12</OPTION></SELECT>
<SELECT size=1 name=selectafgaar> <OPTION selected>2005</OPTION> <OPTION>2006</OPTION> <OPTION>2007</OPTION></SELECT></td>
<td valign="middle" class="H5"><b>Afrejse Dato*</b></TD>
</TR>
<TR>
<TD><INPUT TYPE="text" NAME="antalovernat" SIZE="50" VALUE="<% Response.WRite(santalovernat) %>"></TD>
<TD valign="middle" class="H5"><b>Antal overnatninger*</b></TD>
</TR>
<TR>
<TD valign="top" class="H5" colspan="2"><br><b>Eventuel besked:</b><br>
<textarea name="besked" rows="20" cols="53"><% Response.WRite(sbesked) %></textarea></td>
</TR>
</TABLE>
<BR><BR>
<INPUT TYPE="submit" name="submit" VALUE="Reserver"> <INPUT TYPE="reset" Value="Fortryd"><BR>
</FORM>
</td>
</tr>
</table>
<%
End Sub
Sub SaveVars
opencon
ChooseTable "Vaerelse_reservation"
rs.addnew
Rs.Fields("navn").value = snavn
Rs.Fields("adresse").value = sadr
Rs.Fields("postnr").value = spostnr
Rs.Fields("land").value = sland
Rs.Fields("email").value = semail
Rs.Fields("tlfnr").value = stlfnr
Rs.Fields("antalpersoner").value = santalpers
Rs.Fields("ankomstdag").value = sselectankdag
Rs.Fields("ankomstmaaned").value = sselectankmdr
Rs.Fields("ankomstaar").value = sselectankaar
Rs.Fields("ankomstkl").value = sklokkeslet
Rs.Fields("afrejsedag").value = sselectafgdag
Rs.Fields("afrejsemaaned").value = sselectafgmdr
Rs.Fields("afrejseaar").value = sselectafgaar
Rs.Fields("antalovernatninger").value = santalovernat
Rs.Fields("dato").value = sdato
Rs.Fields("besked").value = sbesked
Rs.Fields("reservationsstatus").value = sreservationsstatus
Rs.Fields("beskedstatus").value = sbeskedstatus
rs.UpdateBatch adAffectAll
closecon
End Sub
Sub ShowOK
response.write "Din reservation er registreret. Du vil hurtigst muligt få besked"
%>
<%
end Sub
%>
</BODY>
</HTML>
