Just nu i M3-nätverket
Jump to content

Konstigt felmeddelande!


Coffer

Recommended Posts

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?

 

Link to comment
Share on other sites

Kristianstad

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.

 

Link to comment
Share on other sites

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?

 

Link to comment
Share on other sites

Kristianstad

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.

 

Link to comment
Share on other sites

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>

 

Link to comment
Share on other sites

Kristianstad

Ä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]

Link to comment
Share on other sites

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.

 

Link to comment
Share on other sites

Kristianstad

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.

 

Link to comment
Share on other sites

Kristianstad

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.

 

Link to comment
Share on other sites

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. =)

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...