Avatar billede 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:
<!-- #INCLUDE FILE="adovbs.inc" -->
<%
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%"><font face="Verdana" color="black" size="-2"><b>Name:</b></font></td>
<td colspan="2" width="80%"><font size="-2"
face="Verdana"><input type="text" size="80"
name="Navn"></font></td>
</tr>
<tr>
<td align="right" width="20%"><font size="-2" face="Verdana"><b>Birthdate</b></font><font face="Verdana" color="black" size="-2"><b>:</b></font></td>
<td colspan="2" width="80%"><font size="-2"
face="Verdana"><input type="text" size="80"
name="Fodt"></font></td>
</tr>
<tr>
<td align="right" width="20%"><font face="Verdana" color="black" size="-2"><b>Location:</b></font></td>
<td colspan="2" width="80%"><font size="-2"
face="Verdana"><input type="text" size="80"
name="Adresse"></font></td>
</tr>
<tr>
<td align="right" width="20%"><font face="Verdana" color="black" size="-2"><b>Country:</b></font></td>
<td colspan="2" width="80%"><font size="-2"
face="Verdana"><input type="text" size="80"
name="Uddannelsessted"></font></td>
</tr>
</table>
</center></font>
    <p align="center"><font face="Verdana" size="1"><b>Name:</b> </font><font size="-2"
face="Verdana">Your full name. Please place your nickname after your full name
    in a ( ). (Thomas Nielsen (ZornSlog), Maria Hansen (MarHan) etc.)<br>
    <b>Birthdate (DD/MM/YYYY): </b></font><font size="-2"
face="Verdana">Your birthdate (01/01/1960, 06/12/1980 etc.)<br>
    <b>Location: </b></font><font size="-2"
face="Verdana">Your hometown (Kjellerup, Berlin, Copenhagen etc.)<br>
    <b>Country: </b></font><font size="-2"
face="Verdana">Your Country (Germany, Denmark, France etc.)</font></p>
    <p align="center"><font face="Verdana" size="-2">Please use the 'tabulator'
    to change between the fields!</font></p>
<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"</p>
<p align="center">
</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><font size="-2">The list started 16.04.2005</center>
<p align="center"><a href="r_addlist.asp">I'm a Rammstein Fan and I would like to be
added! (Click here)</a><br>
<a href="mailto:mrfusker@hotmail.com?subject=Problems... help me!">Problems?
Mail me at: mrfusker@hotmail.com</a><br>
<a target="_blank" href="r_point.txt">The point of the list! (Open in a new
window)</a><br>
<!--#include file=Paging_Inc.asp-->
<%
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 <font face=Verdana color=black size=-2>" & 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 "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        Response.Write "<p>&nbsp;</p>"
        call button(intPrev,intNext,TotalPages)
    set Rst=nothing
    Connect.close
    end if
%>
</body>
Avatar billede 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
Avatar billede 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???
Avatar billede 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
Avatar billede mrfusker Nybegynder
14. januar 2006 - 19:08 #4
Att Lordnelson

Kan du ikke vise ved eksempel i koden hvor det skal indsættes?
Avatar billede 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
Avatar billede 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
%>
Avatar billede 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
%>
Avatar billede mrfusker Nybegynder
16. januar 2006 - 10:41 #8
Jeg har gjort som du skrev, men det giver bare intern HTTP 500-serverfejl
Avatar billede 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
Avatar billede 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
---------------^
Avatar billede 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
Avatar billede mrfusker Nybegynder
16. januar 2006 - 14:09 #12
Fejl igen:

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/mrfusker/pages/r_addlist.asp, line 36
Avatar billede 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
Avatar billede 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
Avatar billede 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
Avatar billede 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 %>
Avatar billede 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
Avatar billede mrfusker Nybegynder
17. januar 2006 - 10:22 #18
takker meget
nu virker det hele igen
Avatar billede lordnelson Seniormester
17. januar 2006 - 11:25 #19
Glad for at kunne hjælpe

LN
Avatar billede 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
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



IT-JOB