Problem med database/recordsets
jeg har en side der får noget data fra en form, det indsætter den så i en base, samtidig skal den hente emailadresser og tlf numre fra basen ud fra de brugernavne der bliver sendt fra form'enproblemet er at selvom den får 6 forskellige brugernavne, så finder den emailadressen til den første bruger 6 gange
koden kommer her:
<%@ Language="VBSCRIPT" %>
<% Response.buffer = True %>
<!--#include file="protect.inc"-->
<%
lusr1 = Request.Form("bruger1")
lusr2 = Request.Form("bumbum")
lusr3 = Request.Form("kamsteg")
lusr4 = Request.Form("lindser")
lusr5 = Request.Form("kasserolle")
lusr6 = Request.Form("pande")
knr = request.form("firmanavn")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:\Inetpub\db\register.mdb"
kSQL = "SELECT kundenr FROM kunder WHERE firmanavn = '" & knr & "'"
set rs = conn.execute(kSQL)
SQL = "INSERT INTO ordrereg (bruger1, bruger2, bruger3, bruger4, bruger5, bruger6, kundenr, firmanavn, ordrer, ordretype,
forvtimeforbrug, jobkode, jobsted, budgettid, deadline, ordrenr, visordre, afsluttet) VALUES ('" & Request.Form("bruger1") & "','"
& Request.Form("bumbum") & "','" & Request.Form("kamsteg") & "','" & Request.Form("lindser") & "','" & Request.Form("kasserolle")
& "','" & Request.Form("pande") & "','" & rs("kundenr") & "','" & Request.Form("firmanavn") & "','" & Request.Form("ordrer") &
"','" & Request.Form("ordretype") & "','" & Request.Form("forvtimeforbrug") & "','" & Request.Form("jobkode") & "','" &
Request.Form("jobsted") & "','" & Request.Form("budgettid") & "','" & Request.Form("deadline") & "','" & Request.Form("ordrenr") &
"','" & Request.Form("visordre") & "','" & Request.Form("afsluttet") & "')"
Conn.Execute(SQL)
e1SQL = "SELECT tlfnr,email FROM brugere WHERE brugernavn = '" & lusr1 & "'"
set rs2 = conn.execute(e1SQL)
mail1 = rs2("email")
tlfnr1 = rs2("tlfnr")
e2SQL = "SELECT tlfnr,email FROM brugere WHERE brugernavn = '" & lusr2 & "'"
set rs3 = conn.execute(e1SQL)
mail2 = rs3("email")
tlfnr2 = rs3("tlfnr")
e3SQL = "SELECT tlfnr,email FROM brugere WHERE brugernavn = '" & lusr3 & "'"
set rs4 = conn.execute(e1SQL)
mail3 = rs4("email")
tlfnr3 = rs4("tlfnr")
e4SQL = "SELECT tlfnr,email FROM brugere WHERE brugernavn = '" & lusr4 & "'"
set rs5 = conn.execute(e1SQL)
mail4 = rs5("email")
tlfnr4 = rs5("tlfnr")
e5SQL = "SELECT tlfnr,email FROM brugere WHERE brugernavn = '" & lusr5 & "'"
set rs6 = conn.execute(e1SQL)
mail5 = rs6("email")
tlfnr5 = rs6("tlfnr")
e6SQL = "SELECT tlfnr,email FROM brugere WHERE brugernavn = '" & lusr6 & "'"
set rs7 = conn.execute(e1SQL)
mail6 = rs7("email")
tlfnr6 = rs7("tlfnr")
mail = mail1 & ","
mail = mail & mail2 & ","
mail = mail & mail3 & ","
mail = mail & mail4 & ","
mail = mail & mail5 & ","
mail = mail & mail6
Conn.Close()
Set Conn = nothing
ordre = Request.Form("ordrer")
firma = Request.Form("firmanavn")
%>
<HTML>
<head>
<title>ordre oprettet</title>
<link rel="stylesheet" href="register.css">
</head>
<BODY bgcolor="#7795A5" class="text">
<table cellpadding="0" cellspacing="0" border="0" width="500">
<tr>
<td class="text">
<b>
<a href="logout.asp" alt="logout">LOGOUT</a>
|
<a href="ordre.asp" alt="ordrer">ORDRER</a>
|
<a href="kunder.asp" alt="kunder">KUNDER</a>
|
<a href="ny_reg.asp" alt="registrering">REGISTRERING</a>
|
<a href="rapport.asp" alt="rapporter">RAPPORTER</a>
|
<a href="soeg.asp" alt="Søgning">SØG</a>
|
<a href="admin.asp" alt="adminzone">ADMIN</a>
</b>
</td>
</tr>
</table>
<br>
<table cellspacing="0" cellpadding="0" border="0">
<tr>
<td class="text">
<font size="1"><b>Ordren <%=ordre %> for <%=firma %> er nu oprettet...</b></font>
</td></tr>
<tr>
<td class="text">
<FORM METHOD="POST" ACTION="mail.asp">
<b>
Info der sendes til brugere der er tilknyttet opgaven.
<br><br>
Brugers email:<br>
<input type="text" name="email" value="<%=mail %>" size="15" class="formsearchsmall" style="width: 180px">
<br><br>
Projektnavn:<br>
<input type="text" name="ordre" value="<%=Request.Form("ordrer") %>" size="15" class="formsearchsmall" style="width: 180px">
<br><br>
Projekt:<br>
<textarea name="projektinfo" rows="10" cols="60" wrap="VIRTUAL" class="formsmall" style="width: 180px">Her skal der stå info om
ordren som <%=Request.Form("ordrer") %> og <%=Request.Form("jobsted") %> osv</textarea>
<BR><br>
<input type="hidden" name="tlfnr" value="<%=tlfnr %>">
<br>
</b>
<INPUT TYPE=SUBMIT VALUE="Send" class="formbutton">
<input type="reset" value="slet" class="formbutton">
</FORM>
</table>
</BODY>
</HTML>
