20. november 2003 - 08:17
Der er
2 kommentarer og
1 løsning
Gemmer ikke værdi fra selectmenu rigtigt
Har et problem med følgende kode:
<SELECT NAME="politikreds">
<OPTION></OPTION>
<%
Dim recordSet11
Dim strSQL11
set recordSet11 = server.CreateObject("ADODB.Recordset")
strSQL11 = "SELECT Politikreds FROM Politi ORDER BY Politikreds"
set recordSet11 = forbindelse.Execute (strSQL11)
do until recordSet11.eof
Response.Write "<option value=" & recordSet11("Politikreds") & ">" & recordSet11("Politikreds") & "</option>"
recordSet11.movenext
loop
recordSet11.Close
Set recordSet11 = Nothing
%>
</SELECT>
Koden viser det rigtige indhold i selectmenuen (eks. 01 København, 02 Frederiksberg, 03 Gentofte osv.) Men når den gemmer det valgte tager den kun det første og smider i tabellen. F.eks. hvis du har valgt 03 Gentofte, så smider den kun 03 i basen. Hvordan får jeg den til at smide det hele i basen?
20. november 2003 - 09:10
#2
Sådan her sætter jeg det ind i basen:
<%
CONST adOpenStatic = 3, adLockReadOnly = 1, adCmdText = &H0001
Dim connectionString, CONN_USER, CONN_PASS
Dim forbindelse
Dim strSQL
Dim kolDato, dataDato, indgaetdato, indgaetdatous, sendtdato, sendtdatous
kolDato =""
dataDato =""
indgaetdato = Request.Form("inddato")
sendtdato = Request.Form("senddato")
if indgaetdato <>"" then
indgaetdatous = split(indgaetdato,".")
indgaetdato = indgaetdatous(2) & "-" & indgaetdatous(1) & "-" & indgaetdatous(0)
kolDato = kolDato & ", Indgaet_dato"
dataDato = dataDato & ", #" & indgaetdato & "#"
end if
if sendtdato <>"" then
sendtdatous = split(sendtdato,".")
sendtdato = sendtdatous(2) & "-" & sendtdatous(1) & "-" & sendtdatous(0)
kolDato = kolDato & ", Sendt_dato"
dataDato = dataDato & ", #" & sendtdato & "#"
end if
connectionString = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Vhk.mdb")
Set forbindelse = Server.CreateObject("ADODB.Connection")
forbindelse.Open connectionString, CONN_USER, CONN_PASS
strSQL = "INSERT INTO Koretest (Journalnr,Klientnavn,Cprnummer,Adresse,Postnr,Bynavn,Politikreds,Journalnr_politi,Sagsbehandler,Provested,Testen,Biltype,Udstyr,Droftes" & kolDato & ") VALUES ('" & request.Form("journalnr") & "', '" & request.Form("klientnavn") & "', '" & request.Form("cpr") & "', '" & request.Form("adresse") & "', '" & request.Form("postnr") & "', '" & request.Form("bynavn") & "', '" & request.Form("politikreds") & "', '" & request.Form("journalnr_pol") & "', " & request.Form("sagsbehandler") & ", '" & request.Form("provested") & "', '" & request.Form("testen") & "', '" & request.Form("biltype") & "', '" & request.Form("ingen_krav") & "', '" & request.Form("droftelse") & "'" & dataDato & ")"
forbindelse.Execute(strSQL)
forbindelse.close
Set forbindelse = Nothing
Response.Redirect ("vhk_opret1.asp")
%>
</BODY>
</HTML>
26. november 2003 - 12:59
#3
har løst det selv ved at benytte en lidt anden måde:
<SELECT NAME="politikreds">
<OPTION></OPTION>
<%
Dim recordSet11
Dim strSQL11
set recordSet11 = server.CreateObject("ADODB.Recordset")
strSQL11 = "SELECT Politikreds FROM Politi ORDER BY Politikreds"
set recordSet11 = forbindelse.Execute (strSQL11)
do until recordSet11.eof
politi = recordSet11("Politikreds")
%>
<option value="<%=politi%>"><%=politi%></option>
<%
recordSet11.movenext
loop
recordSet11.Close
Set recordSet11 = Nothing
%>
</SELECT>
