Hej Alle
På min side har medlemmer mulighed for at tilmelde sig et arrangement, som sker via link fra arrangementer.asp og medlemmet bliver nu ført til arrangementer_tilmeld.asp. På tilmeld siden ses arrangementets fulde tekst, samt medlemmets navn og nummer. Så langt så godt. En formular skal nu automatisk forudfyldes med navn, medlemsnr og partysnavn, men det er kun partynavn som kommer frem i denne formular, er der nogen som kan give et bud på hvad jeg har lavet forkert? Det er sidenhen meningen at formularfelterne skal være skjulte og medlemmet skal kun submitte for at tilmelde sig arrangementet.
Kode herunder fra arrangementer_tilmeld.asp:
<%
If not request("partynavn") = "" Then
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/hs.mdb")
strSQL = ("SELECT * FROM arrangementer WHERE partynavn = '" & Request("partynavn") & "'")
Set rs = myConn.Execute(strSQL)
If rs.EOF = False Then
strOverskrift = rs("Overskrift")
Response.Write strOverskrift
strgrafiklink = rs("Grafiklink")
Response.Write strGrafiklink
strPartynavn = rs("Partynavn")
Response.Write strPartynavn
strBeskrivelse = rs("Beskrivelse")
Response.Write strBeskrivelse
Else
Response.Redirect("fejl.asp")
End If
End If
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/hs.mdb")
'Henter medlem fnavn og nr
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from medlem where email = '" & Session("email") & "'"
rs.open sql, conn, 1, 3
Response.Write "Navn: " & rs("fnavn") & "<br>Medlemsnummer: " & rs("medlemsnr") & ""
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/hs.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from arrangementer_tilmeld where partynavn = '" & Session("partynavn") & "'"
rs.open sql, conn, 1, 3
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
'Opdaterer felterne
rs.AddNew
rs("fnavn") = Request("fnavn")
rs("medlemsnr") = Request("medlemsnr")
rs("partynavn") = Request("partynavn")
'Tjekker om felterne er fyldte
if (Request.Form("fnavn")<> "" AND Request.Form("medlemsnr") <> ""AND Request.Form("partynavn") <> "") then
rs.update
Response.Redirect("arrangementer.asp")
else
Response.Write("<font color='red'>Der var fejl i dine indtastninger</font><br>")
end if
end if
%>
</p>
<form method="post" action="arrangementer_tilmeld.asp">
<div align="center">
<table width="550">
<tr>
<td>Fornavn:</font></td>
<td>
<input name="fnavn" value="<%=Request("fnavn")%>" size="50"></td>
</tr>
<tr>
<td>medlemsnr:</font></td>
<td>
<input name="medlemsnr" value="<%=Request("medlemsnr")%>" size="50"></td>
</tr>
<tr>
<td>partynavn:</td>
<td>
<input name="partynavn" value="<%=Request("partynavn")%>" size="50"></td>
</tr>
<tr>
<td colspan="2" style="text-align: center">
<input type="submit" value="Tilmeld" id=submit1 name=submit1 style="border: 1px solid #000000; background-color: #FF9EB3"></td>
</tr>
</table>
</div>
</form>
I øvrigt tak til alle som tidligere har givet mig et nap.
Med venlig hilsen rwj