Avatar billede slapstick Nybegynder
08. februar 2002 - 14:03 Der er 1 kommentar og
1 løsning

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'en
problemet 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>
Avatar billede slapstick Nybegynder
08. februar 2002 - 14:04 #1
glem det har fundet fejlen
DOH !!!!
Avatar billede torbenmelander Nybegynder
08. februar 2002 - 14:08 #2
Det er nok fordi du tager den samme sql-sætning hver gang: e1SQL ...

i liner som denne:

set rs4 = conn.execute(e1SQL)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester