Just nu i M3-nätverket
Gå till innehåll
Eforum är stängt för nya inlägg och svar sedan 20 juni 2022. Klicka för att läsa vad som hände och om alternativ.

Konstigt felmeddelande!

Coffer

Startad av Coffer,
i Webbutveckling

Rekommendera Poster

Coffer

Coffer

Postad
Postad

Jag försöker att göra ett anrop från en länk med följande anropskod:

 

Response.Write "<a class='adress' href='writer.asp?id=" & Issue("StringKey") & "'>"Länkens namn"</a>"

 

...till en sida som har följande mottagarhändelse:

 

Dim Profile

Set Profile = Server.CreateObject("ADODB.Recordset")

 

Dim sqlProfile

sqlProfile = "SELECT * FROM Accounts WHERE StringKey =" & Request.QueryString("id") & ";"

Profile = Members.execute(sqlProfile)

 

 

Jag trodde att detta var ett korrekt sätt att öppna mottagarsidan på, men istället möts jag av följande felmeddelande:

 

Microsoft OLE DB Provider for ODBC Drivers fel '80040e10'

 

[Microsoft][Drivrutin för ODBC Microsoft Access] För få parametrar angavs. 1 förväntades.

 

/writer.asp, line 59

 

Vad är det som är fel?

 

Länk till kommentar
Dela på andra webbplatser
Kristianstad

Kristianstad

Postad
Postad

Hej!

Skall det inte vara:

Set RecSet = Profile.Execute(sqlProfile)

?

 

/ Kristoffer

Windows kunde inte hitta något tangentbord. Tryck F1 för att försöka igen eller F2 för att avbryta.

 

Länk till kommentar
Dela på andra webbplatser
Coffer

Coffer

Postad
  • Trådskapare
Postad

Jag glömde visst att skriva ut själva connectsträngen... den ser ut som följer:

 

Set Connect = Server.CreateObject("ADODB.Connection")

Connect.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Sökväg_till_databasen & ";pwd=;"

 

Den kod jag använder fungerar klockrent på andra sidor som jag har, men på just denna sida råkar jag ut för detta fel hela tiden... vad göra?

 

Länk till kommentar
Dela på andra webbplatser
Kristianstad

Kristianstad

Postad
Postad

Hej!

Vilken rad är det, det blir fel på? Skulle du vilja visa hela koden du har och visa raden?

/ Kristoffer

Windows kunde inte hitta något tangentbord. Tryck F1 för att försöka igen eller F2 för att avbryta.

 

Länk till kommentar
Dela på andra webbplatser
Coffer

Coffer

Postad
  • Trådskapare
Postad

Hela koden blir svår att skriva ut då den är jättelång, men jag tar med de viktiga bitarna. Felet ligger på rad 57.

 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<!-- Inkluderingsfil1 -->

<!-- Inkluderingsfil2 -->

 

<html>

 

<!-- © Kristofer Gisslén 2001 - 2002. Med ensamrätt. - Frågor rörande copyrighten besvaras via http://www.gisslen.net/legal.asp -->

 

<%

Dim Members

Set Members = Server.CreateObject "ADODB.Connection")

Members.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Sökvägen_till_databasen & ";pwd=;"

%>

 

<head>

 

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

<meta name="ROBOTS" content="ALL" />

<meta name="MSSmartTagsPreventParsing" content="true" />

<meta http-equiv="pragma" content="no-cache" />

<meta http-equiv="cache-control" content="no-cache" />

<meta name="description" content="Politiska debatter. Samhällsinformation." />

<meta name="author" content="Kristofer Gisslén, Coffer" />

<link rel="author" href="http://www.gisslen.net/" />

<link rel="stylesheet" type="text/css" href="library/css/default.css" />

<script language="javascript" type="text/javascript" src="library/script/checkform.js" /></script>

<script language="javascript" type="text/javascript" src="library/script/setup.js" /></script>

<title>writer</title>

 

</head>

<body background="none">

 

<table width="939" cellspacing="0" cellpadding="0" border="0" class="clsUpperFrame">

<tr>

<td width="7" valign="top" background="none" nowrap="nowrap">

</td>

<td width="925" valign="top" background="none" nowrap="nowrap">

<table width="925" cellspacing="0" cellpadding="0" border="0" class="brodtext">

<tr>

<td width="925" valign="top" background="none" nowrap="nowrap">

<table width="925" cellspacing="0" cellpadding="0" border="0" class="bodytext">

<tr>

<td width="925" valign="top" bgcolor="#ffffff" background="none" nowrap="nowrap">

<table width="925" cellspacing="0" cellpadding="5" border="0" class="brodtext">

<tr>

<td width="915" valign="top" background="none" nowrap="nowrap">

<table width="915" cellspacing="0" cellpadding="0" border="0" class="brodtext">

<tr>

<td width="915" align="left" valign="top" background="none" nowrap="nowrap">

<%

Dim Profile

Set Profile = Server.CreateObject("ADODB.Recordset")

 

Dim sqlProfile

sqlProfile = "SELECT * FROM Accounts WHERE StringKey =" & Request.QueryString("id") & ";"

Set Profile = Members.execute(sqlProfile) [På denna rad lokaliseras felet, men hänvisas till föregående rad]

 

Response.Write "Testar..."

 

Här ligger resten av koderna:

%>

</td>

</tr>

</table>

</td>

</tr>

</table>

</td>

</tr>

</table>

</td>

</tr>

</table>

</td>

<td width="7" valign="top" background="none" nowrap="nowrap">

</td>

</tr>

</table>

 

</body>

 

<%

Members.close

Set Members = nothing

%>

 

</html>

 

Länk till kommentar
Dela på andra webbplatser
Kristianstad

Kristianstad

Postad
Postad

Är du säker på att Request.QueryString("id") innehåller någonting?

 

Du kan testa:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<!-- Inkluderingsfil1 -->
<!-- Inkluderingsfil2 -->

<html>

<!-- © Kristofer Gisslén 2001 - 2002. Med ensamrätt. - Frågor rörande copyrighten besvaras via http://www.gisslen.net/legal.asp -->

<%
Dim Members
Set Members = Server.CreateObject "ADODB.Connection") 
Members.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" &amp; Sökvägen_till_databasen &amp; ";pwd=;"
%>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<meta name="ROBOTS" content="ALL" />
<meta name="MSSmartTagsPreventParsing" content="true" />
<meta http-equiv="pragma" content="no-cache" />
<meta http-equiv="cache-control" content="no-cache" />
<meta name="description" content="Politiska debatter. Samhällsinformation." />
<meta name="author" content="Kristofer Gisslén, Coffer" />
<link rel="author" href="http://www.gisslen.net/" />
<link rel="stylesheet" type="text/css" href="library/css/default.css" />
<script language="javascript" type="text/javascript" src="library/script/checkform.js" /></script>
<script language="javascript" type="text/javascript" src="library/script/setup.js" /></script>
<title>writer</title>

</head>
<body background="none">

<table width="939" cellspacing="0" cellpadding="0" border="0" class="clsUpperFrame">
<tr>
<td width="7" valign="top" background="none" nowrap="nowrap">
</td>
<td width="925" valign="top" background="none" nowrap="nowrap">
<table width="925" cellspacing="0" cellpadding="0" border="0" class="brodtext">
<tr>
<td width="925" valign="top" background="none" nowrap="nowrap">
<table width="925" cellspacing="0" cellpadding="0" border="0" class="bodytext">
<tr>
<td width="925" valign="top" bgcolor="#ffffff" background="none" nowrap="nowrap">
<table width="925" cellspacing="0" cellpadding="5" border="0" class="brodtext">
<tr>
<td width="915" valign="top" background="none" nowrap="nowrap">
<table width="915" cellspacing="0" cellpadding="0" border="0" class="brodtext">
<tr>
<td width="915" align="left" valign="top" background="none" nowrap="nowrap">
<%
Dim sqlProfile
sqlProfile = "SELECT * FROM Accounts WHERE StringKey =" &amp; Request.QueryString("id") &amp; ";"
Set Profile = Members.execute(sqlProfile) [På denna rad lokaliseras felet, men hänvisas till föregående rad]

Response.Write "Testar..."

Här ligger resten av koderna:
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="7" valign="top" background="none" nowrap="nowrap">
</td>
</tr>
</table>

</body>

<%
Members.close
Set Members = nothing
%>

</html>

/ Kristoffer

Windows kunde inte hitta något tangentbord. Tryck F1 för att försöka igen eller F2 för att avbryta.

 

[inlägget ändrat 2003-03-16 21:46:32 av Kristianstad]

Länk till kommentar
Dela på andra webbplatser
Coffer

Coffer

Postad
  • Trådskapare
Postad

Japp. När man klickar på länken på föregående sida, så skrivs hela innehållet i "id" ut i statusfältet. Och enligt databasen så finns innehållet i tabellcellen. Det är ett knepigt problem detta.

 

Länk till kommentar
Dela på andra webbplatser
Kristianstad

Kristianstad

Postad
Postad

Det verkar som om tabellen Accounts inte existerar. Kolla om den verkligen finns och kolla så att det är i rätt databas du skapat tabellen i.

/ Kristoffer

Windows kunde inte hitta något tangentbord. Tryck F1 för att försöka igen eller F2 för att avbryta.

 

Länk till kommentar
Dela på andra webbplatser
Coffer

Coffer

Postad
  • Trådskapare
Postad

Hmm... tabellen existerar... och databasen har rätt namn... måste vara något annat fel.

 

Länk till kommentar
Dela på andra webbplatser
Kristianstad

Kristianstad

Postad
Postad

Har du den på webbhotell (ftp) och om du har förtroende för mig kan du skicka inloggningsuppgifter till min mail, webmaster@stossan.com så kan jag ta en titt på det, antingen ikväll eller imorgon eftermiddag.

 

/ Kristoffer

Windows kunde inte hitta något tangentbord. Tryck F1 för att försöka igen eller F2 för att avbryta.

 

Länk till kommentar
Dela på andra webbplatser
Coffer

Coffer

Postad
  • Trådskapare
Postad

Ahh... jag löste problemet! Det hela berodde på en missad notation:

 

sqlProfile = "SELECT * FROM Accounts WHERE StringKey =" & Request.QueryString("id") & ";"

Set Profile = Members.execute(sqlProfile)

 

Rätt kod skall se ut så här:

 

sqlProfile = "SELECT * FROM Accounts WHERE StringKey ='" & Request.QueryString("id") & "';"

Set Profile = Members.execute(sqlProfile)

 

Tack för hjälpen i alla fall. =)

 

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

Gå till ämneslista


×
×
  • Skapa nytt...