CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

mrfusker Nybegynder

14. januar 2006 - 15:57 Der er 20 kommentarer

Problemer med ASP & Access Database

Hej.
Jeg har et problem med noget ASP som jeg har siddet og kodet.
Jeg har to sider + en access database. En hvor listen med dem som har tilmeldt sig og en hvor man tilmelder sig på listen.
Siden, hvor man tilmelder sig på listen melder ingen fejl og det samme er med listen, hvor man kan se de tilmeldte. Problemet er bare er at en eller anden grund så forstår databasen ikke at tage imod data fra formen.

Note: Jeg er ikke den store haj til ASP

siden med formen:

<%
Response.Buffer = True
if Request.ServerVariables("REQUEST_METHOD") = "POST" then

Response.Cookies("Liste")("Navn") = Request.Form("Navn")
Response.Cookies("Liste")("Adresse") = Request.Form("Adresse")
Response.Cookies("Liste")("Uddannelsested") = Request.Form("Uddannelsested")
Response.Cookies("Liste")("Fodt") = Request.Form("Fodt")
Response.Cookies("Liste").Expires = Date+365
End If
Navn = Request.Cookies("Liste")("Navn")
Adresse = Request.Cookies("Liste")("Adresse")
Uddannelsested = Request.Cookies("Liste")("Uddannelsested")
Fodt = Request.Cookies("Liste") ("Fodt")
%>
<%
tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mrfusker/db/liste.mdb") & ";UID=admin;PWD=;"
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Navn = Trim(Request.Form("Navn"))
Adresse = Trim(Request.Form("Adresse"))
Uddannelsested = Trim(Request.Form("Uddannelsested"))
Fodt = Trim(Request.Form("Fodt"))
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Liste WHERE (ID = 0)"
rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic
If (rs.BOF Or rs.EOF) Then
rs.AddNew
rs("Navn") = Navn
rs("Adresse") = Adresse
rs("Uddannelsested") = Uddannelsested
rs("Fodt") = Fodt
rs.Update
End If
rs.Close
Set rs = Nothing
End If
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Response.Redirect("r_rammfans.asp")
End If
%>

<html>
<head>
<title>The World List of Rammstein Fans</title>
<style fprolloverstyle>
a:link { text-decoration: none; font-size: 10; font-family: verdana; color: black }
a:visited { text-decoration: none; font-size: 10; font-family: verdana; color: black }
a:active { text-decoration: none; font-size: 10; font-family: verdana; color: black }
a:hover { text-decoration: none; font-size: 10; font-family: Verdana; color: black }
</style>
</head>
<form method="POST" action="r_addlist.asp">
<center><img src="/mrfusker/images/esgibt.jpg"></center>
<div align="center"><center><table border="0" cellpadding="2"
cellspacing="0" width="50%">
<tr>
<td align="right" width="20%">Name:</td>
<td colspan="2" width="80%"><input type="text" size="80"
name="Navn"></td>
</tr>
<tr>
<td align="right" width="20%">Birthdate:</td>
<td colspan="2" width="80%"><input type="text" size="80"
name="Fodt"></td>
</tr>
<tr>
<td align="right" width="20%">Location:</td>
<td colspan="2" width="80%"><input type="text" size="80"
name="Adresse"></td>
</tr>
<tr>
<td align="right" width="20%">Country:</td>
<td colspan="2" width="80%"><input type="text" size="80"
name="Uddannelsessted"></td>
</tr>
</table>
</center>
Name: Your full name. Please place your nickname after your full name
in a ( ). (Thomas Nielsen (ZornSlog), Maria Hansen (MarHan) etc.) 
Birthdate (DD/MM/YYYY): Your birthdate (01/01/1960, 06/12/1980 etc.) 
Location: Your hometown (Kjellerup, Berlin, Copenhagen etc.) 
Country: Your Country (Germany, Denmark, France etc.)
Please use the 'tabulator'
to change between the fields!
<input type="submit"
name="B1" style="font-family: Verdana; font-size: -2; font-weight:bold; color:black; background-image:url('knap.jpg')" value="Submit"><input type="reset" style="font-family: Verdana;
font-size: -2; color:black; font-weight:bold; background-image:url('knap.JPG')" value="Reset" name="B2"

</form>
</BODY>
</html>

siden med listen:
<%@ Language=VBScript %>
<head>
<title>The World List of Rammstein Fans</title>
<meta name="Generator" content="Stone's WebWriter 4">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="DESCRIPTION" CONTENT="Tribute to the best music band ever">
<meta name="KEYWORDS" content="rammstein kannibal cannibal music list musik musikka world great fine fantastic till lindemann richard z kruspe flake schneider danish mrfusker swedish english">
<meta name="OWNER" content="mrfusker@hotmail.com">
<meta name="AUTHOR" content="Mr. Fusker">
<meta name="page-TOPIC" content="Music">
<meta name="AUDIENCE" content="All">
<meta name="RATING" content="General">
<meta name="ROBOTS" content="index,follow">
<meta name="REVISIT-AFTER" content="1 days">
<style fprolloverstyle>
a:link { text-decoration: none; font-size: 10; font-family: verdana; color: black }
a:visited { text-decoration: none; font-size: 10; font-family: verdana; color: black }
a:active { text-decoration: none; font-size: 10; font-family: verdana; color: black }
a:hover { text-decoration: none; font-size: 10; font-family: Verdana; color: black }
</style>
</head>
<body style="font-family: Verdana" link="black" vlink="black" alink="black" bgcolor="white">
<body>
<center><img src="/mrfusker/images/esgibt.jpg"></center>
<center>The list started 16.04.2005</center>
<a href="r_addlist.asp">I'm a Rammstein Fan and I would like to be
added! (Click here)</a> 
<a href="mailto:mrfusker@hotmail.com?subject=Problems... help me!">Problems?
Mail me at: mrfusker@hotmail.com</a> 
<a target="_blank" href="r_point.txt">The point of the list! (Open in a new
window)</a> 

<%
dim Rst
set Rst=server.CreateObject("ADODB.recordset")
Rst.Open "select * from liste ORDER BY ID DESC",Connect,3,1,1
if Rst.EOF =true then
Response.Write "No Records Avialable in the Database"
else
dim intPageSize,PageIndex,TotalPages
dim RecordCount,RecordNumber,Count
intpageSize=50
PageIndex=request("PageIndex")
if PageIndex="" then PageIndex=1
RecordCount=Rst.RecordCount
RecordNumber=(intPageSize * PageIndex) - intPageSize
Rst.PageSize =intPageSize
Rst.AbsolutePage = PageIndex
TotalPages=Rst.PageCount
dim intPrev,intNext
intPrev=PageIndex - 1
intNext=PageIndex +1
Count=1
Response.Write "<table align=left width=629>"
Response.Write "<tr bgcolor=white align=left><th>Name:</th><th>Location:</th><th>Country:</th><th>Birthday:</th><th>Number:</th></tr>"
while not Rst.EOF and Count<=intPageSize
if Count mod 2 <>0 then
Response.Write "<tr bgcolor=lightblue><td " & Rst.Fields(0) & "</td><td>" & Rst.Fields(1) & "</td><td>" & Rst.Fields(2) & "</td><td>" & Rst.Fields(3) & "</td><td>" & Rst.Fields(4) & "</td></tr>"
else
Response.Write "<tr bgcolor=white><td>" & Rst.Fields(0) & "</td><td>" & Rst.Fields(1) & "</td><td>" & Rst.Fields(2) & "</td><td>" & Rst.Fields(3) & "</td><td>" & Rst.Fields(4) & "</td></tr>"
end if
Rst.MoveNext
Count=Count + 1
wend
Response.Write "</table>"
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
call button(intPrev,intNext,TotalPages)
set Rst=nothing
Connect.close
end if
%>
</body>

Synes godt om

kalp Novice

14. januar 2006 - 17:43 #1

For at indsætte data i en database skal man lave en SQL med INSERT INTO
synes jeg ikke rigtig jeg kan se nogle steder

Synes godt om

mrfusker Nybegynder

14. januar 2006 - 17:46 #2

ok

nu hvor jeg ikk er den store haj
kan du ikke lige skrive hvor jeg skal indsætte det???

Synes godt om

lordnelson Seniormester

14. januar 2006 - 18:44 #3

Ikke rigtigt hvad kalp skriver
for du bruger ado laget med rs.addnew
og skal derfor ikke bruge Inser into

man kan tilgengæld ikke forstå din
select sætning hvorfor bruger du den ?

du skal bare åbne og indsætte .

LN

Synes godt om

mrfusker Nybegynder

14. januar 2006 - 19:08 #4

Att Lordnelson

Kan du ikke vise ved eksempel i koden hvor det skal indsættes?

Synes godt om

lordnelson Seniormester

15. januar 2006 - 13:08 #5

Jo du har :
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Liste WHERE (ID = 0)"
rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic
If (rs.BOF Or rs.EOF) Then
KAn rettes til:
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open "Liste"tempConn, adOpenKeyset, adLockOptimistic, adcmdtable
rs.Addnew
rs("Navn") = Navn
rs("Adresse") = Adresse
rs("Uddannelsested") = Uddannelsested
rs("Fodt") = Fodt
rs.Update

Husk at fjerne If (rs.BOF Or rs.EOF) Then
og end if

Ln

Synes godt om

mrfusker Nybegynder

15. januar 2006 - 13:27 #6

>>
Husk at fjerne If (rs.BOF Or rs.EOF) Then
og end if
>>

Hvilke af end If?

<%
tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mrfusker/db/liste.mdb") & ";UID=admin;PWD=;"
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Navn = Trim(Request.Form("Navn"))
Adresse = Trim(Request.Form("Adresse"))
Uddannelsested = Trim(Request.Form("Uddannelsested"))
Fodt = Trim(Request.Form("Fodt"))
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open "Liste"tempConn, adOpenKeyset, adLockOptimistic, adcmdtable
rs.Addnew
rs("Navn") = Navn
rs("Adresse") = Adresse
rs("Uddannelsested") = Uddannelsested
rs("Fodt") = Fodt
rs.Update
rs.Close
Set rs = Nothing
End If
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Response.Redirect("r_rammfans.asp")
End If
%>

Synes godt om

lordnelson Seniormester

15. januar 2006 - 14:09 #7

<%
tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mrfusker/db/liste.mdb") & ";UID=admin;PWD=;"
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Navn = Trim(Request.Form("Navn"))
Adresse = Trim(Request.Form("Adresse"))
Uddannelsested = Trim(Request.Form("Uddannelsested"))
Fodt = Trim(Request.Form("Fodt"))
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open "Liste"tempConn, adOpenKeyset, adLockOptimistic, adcmdtable
rs.Addnew
rs("Navn") = Navn
rs("Adresse") = Adresse
rs("Uddannelsested") = Uddannelsested
rs("Fodt") = Fodt
rs.Update
rs.Close
Set rs = Nothing
End If 'DENNE SKAL SLETTES
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Response.Redirect("r_rammfans.asp")
End If
%>

Synes godt om

mrfusker Nybegynder

16. januar 2006 - 10:41 #8

Jeg har gjort som du skrev, men det giver bare intern HTTP 500-serverfejl

Synes godt om

lordnelson Seniormester

16. januar 2006 - 11:29 #9

Gå ind i eI vælg funktioner/instillinger/avanceret
og fin der hvor der står "vis udskadelige html fejl"
fjern fluebenet

så kan du se hvilken fejl den melder

Copy fejlen hertil

Ln

Synes godt om

mrfusker Nybegynder

16. januar 2006 - 12:38 #10

Når jeg har gjort dette kommer følgende frem på skærmen:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/mrfusker/pages/r_addlist.asp, line 25

rs.open "Liste"tempConn, adOpenKeyset, adLockOptimistic, adcmdtable
---------------^

Synes godt om

lordnelson Seniormester

16. januar 2006 - 12:45 #11

rs.open "Liste"tempConn, adOpenKeyset, adLockOptimistic, adcmdtable

Mangler komma efter "Liste" så der skal stå
rs.open "Liste" ,tempConn, adOpenKeyset, adLockOptimistic, adcmdtable

ln

Synes godt om

mrfusker Nybegynder

16. januar 2006 - 14:09 #12

Fejl igen:

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/mrfusker/pages/r_addlist.asp, line 36

Synes godt om

lordnelson Seniormester

16. januar 2006 - 20:05 #13

Ok
kan se på dit orginale script at du havde en end if
efter rs.update
det så sådan ud
rs.Update
End If
rs.Close
Set rs = Nothing
men den var slettet da du spurgte mig om hvilken end if der skulle slesttes
for da' så det sådan ud
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open "Liste"tempConn, adOpenKeyset, adLockOptimistic, adcmdtable
rs.Addnew
rs("Navn") = Navn
rs("Adresse") = Adresse
rs("Uddannelsested") = Uddannelsested
rs("Fodt") = Fodt
rs.Update
rs.Close
Set rs = Nothing
End If

så den end if du slettede efter set rs = nothing
skal du skrive igen

LN

Synes godt om

mrfusker Nybegynder

16. januar 2006 - 21:37 #14

Gjort. Nu bliver siden vist igen,
men,
følgende fejl kommer:

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/mrfusker/pages/r_addlist.asp, line 29

Synes godt om

lordnelson Seniormester

16. januar 2006 - 23:26 #15

Ja se nu kan jeg jo ikke se hvad linie 29 er
men det den skriver at en af de
rs("feltnavn") du har skrevet findes ikke i den tabel
du har åbnet så hvis linie 29 er imellem
rs.Addnew
rs("Navn") = Navn
rs("Adresse") = Adresse
rs("Uddannelsested") = Uddannelsested
rs("Fodt") = Fodt
rs.Update
er der et af disse felter altså Rs("feltnavn"9 der ikke findes i tabellen
så kik engang i linie 29 og se hvad der står

LN

Synes godt om

mrfusker Nybegynder

17. januar 2006 - 08:55 #16

min fejl at jeg ikke skrev hvad linie 29 er:

17 <%
18 tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mrfusker/db/liste.mdb") & ";UID=admin;PWD=;"
19 if Request.ServerVariables("REQUEST_METHOD") = "POST" then
20 Navn = Trim(Request.Form("Navn"))
21 Adresse = Trim(Request.Form("Adresse"))
22 Uddannelsested = Trim(Request.Form("Uddannelsested"))
23 Fodt = Trim(Request.Form("Fodt"))
24 Set rs = Server.CreateObject("ADODB.RecordSet")
25 rs.open "Liste" ,tempConn, adOpenKeyset, adLockOptimistic, adcmdtable
26 rs.Addnew
27 rs("Navn") = Navn
28 rs("Adresse") = Adresse
29 rs("Uddannelsested") = Uddannelsested
30 rs("Fodt") = Fodt
31 rs.Update
32 rs.Close
33 Set rs = Nothing
34 End If
35 if Request.ServerVariables("REQUEST_METHOD") = "POST" then
36 Response.Redirect("r_rammfans.asp")
37 End If
38 %>

Synes godt om

lordnelson Seniormester

17. januar 2006 - 10:15 #17

Det den så siger i fejlen er at
29 rs("Uddannelsested") altså feltet Uddannelsested
ikke findes i din tabel i din database prøv lige at se om du
har stavet det rigtigt begge steder.

Ln

Synes godt om

mrfusker Nybegynder

17. januar 2006 - 10:22 #18

takker meget
nu virker det hele igen

Synes godt om

lordnelson Seniormester

17. januar 2006 - 11:25 #19

Glad for at kunne hjælpe

LN

Synes godt om

lordnelson Seniormester

17. januar 2006 - 14:09 #20

Ville være glad for du accepterede mit svar
så der kommer lidt point på kontoen

Tak
Ln

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09
Vis detaljeret fejlkoder Af poulmadsen i ASP	6	09/03/202418:16	10/03/202417:59
IIS virker ikke på asp sider... Af bsn i ASP	10	15/10/202313:12	18/10/202308:48

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS