DB koppling funkar inte (freesqlhost)

Få se på kopplingen då.....
Har du lagt databaserna i db mappen?

Okej...
detta är HELA första sidan...

<html>
<!-- #include file="adovbs.inc" -->
<head>

<style type="text/css">
<!--
a:link     { color:navy; font-family:verdana; font-size:8pt; text-decoration:none; }
a:hover    { color:navy; font-family:verdana; font-size:8pt; text-decoration:underline; }
a:visited  { color:navy; font-family:verdana; font-size:8pt; text-decoration:none; }
a:hover    { color:navy; font-family:verdana; font-size:8pt; text-decoration:underline; }
b          { color:dadada; font-family:verdana; font-size:8pt;}
body       { color:dadada; font-family:verdana; font-size:8pt;}
td         { color:dadada; font-family:verdana; font-size:8pt;}
-->
</style>

<title>http://skola.markusnorell.com</title>
</head>
<body bgcolor="#778899" text="white" leftmargin="25" topmargin="5">

&#0124;<a href="#skriv">Skriv i gästboken</a>&#0124;<br>
<br>
<% 
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\sqlcustomers\ass\db\gb.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")

showem = "SELECT * FROM inlagg ORDER BY datum DESC"
RecSet.open showem, Connect, adOpenStatic, adLockOptimistic
%>
<table width="300" cellspacing="0" callpadding="0" border="1" bordercolor="556677"><tr><td>
<table cellspacing="0" callpadding="0" border="0" width="300">

<%Do Until RecSet.EOF%>
<!-- input shitt -->
<tr>
<td bgcolor="556677">
&nbsp;Skrivet av: <%=RecSet("namn")%>, <%=RecSet("datum")%>
</td>
</tr>
<tr><td>
<div style="margin-left: 3px; margin-top: 3px; margin-right: 3px;">
<%=RecSet("inlagg")%><br>
<br>
(<a href="<%=RecSet("hemsida")%>" target="_blank">hemsida</a>, <a href="mailto:<%=RecSet("epost")%>?subject=Svar på ditt inlägg i Markus Norells gästbok.">e-post</a> )
<br><br><br><br></div>
</td></tr>
<!-- /input shitt -->
<%
RecSet.MoveNext
Loop
RecSet.Close 
Connect.close
%>

</table>
</td></tr></table>
<br><br>
<br><br>
<a name="skriv">
<table width="300" cellspacing="0" callpadding="0" border="1" bordercolor="556677"><tr><td>
<table>
<tr><td>
Namn:
</td><td>
<%Session.LCID = 1053%>
<form method="post" action="gastbok2.asp">
<input type="hidden" name="datum" value="<%=date%>">
<input type="text" size="25" name="namn" style="border-right: 0px; border-bottom: 0px; font: verdana; color: dadada; background-color: 556677;">
</td></tr>

<tr><td>
E-post:
</td><td>
<input type="text" size="25" name="epost" style="border-right: 0px; border-bottom: 0px; font: verdana; color: dadada; background-color: 556677;">
</td></tr>

<tr><td>
Hemsida:
</td><td>
<input type="text" value="http://" size="25" name="hemsida" style="border-right: 0px; border-bottom: 0px; font: verdana; color: dadada; background-color: 556677;">
</td></tr>

<tr><td valign="top">
Inlägg:
</td><td>
<textarea rows="6" name="inlagg" cols="26" style="border-right: 0px; border-bottom: 0px; font: verdana; color: dadada; background-color: 556677;"></textarea>
<br><input type="submit" value="Klar">
</form>
</td></tr>
</table>

<table width="300" cellspacing="0" cellpadding="0" border="0">
<tr><td colspan="2" align="center" bgcolor="556677">Funktioner.</td></tr>
<tr><td width="80">&nbsp;<b>[b]</b></td><td width="220">Fet stil</td></tr>
<tr><td>&nbsp;<b>[/b]</b></td><td>Avslutar fet stil</td></tr>
<tr><td>&nbsp;<b>[i]</b></td><td>Kursiv stil</td></tr>
<tr><td>&nbsp;<b>[/i]</b></td><td>Avslutar kursiv stil</td></tr>
<tr><td>&nbsp;<b>[c]</b></td><td>Centrerad text</td></tr>
<tr><td>&nbsp;<b>[/c]</b></td><td>Avslutar centrerad text</td></tr>
<tr><td>&nbsp;<b>[line]</b></td><td>Infogar en linje</td></tr>
<tr><td>&nbsp;<b>[svart]</b></td><td>Svart text</td></tr>
<tr><td>&nbsp;<b>[/svart]</b></td><td>Avslutar svart text</td></tr>
</table>
</td></tr></table>

</body>
</html>

Felet är att din db koppling ser ut så här:

Connect.open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\sqlcustomers\ass\db\gb.mdb"

Den borde se ut så här när du kör den på freesqlhost:

Connect.open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\db\gb.mdb"))

Men då måste du ha lagt din DB i mappen DB

Okej, nu ser grejjerna ut såhärr...

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\..\db\gb.mdb") & "")
Set RecSet = Server.CreateObject("ADODB.Recordset")

Nu får jag internt serverfel - 500 error... ska jag gå över till websamba kanske???

Har du laggt din fil som ska anropa databasen i en under mapp till www?

Har du inte det kan du ta bort ..\ så att du bara har ..\db\gb.mdb

Hjälper inte detta så var snäll och posta hela felmeddelandet!

Det konstiga är att jag inte får något felmeddelande... bara 500 error...

kolla gärna själv, http://ass.freesqlhost.com/skola/gastbok.asp

det finns alltid andra felmeddelanden än ett http 500 server error.

ditt är:

Active Server Pages error 'ASP 0126'

Include file not found

/skola/gastbok.asp, line 2

The include file 'adovbs.inc' was not found.

kolla gärna med en netscape om du inte vet hur du stänger av friendly error messages i internet explorer.

Det tipset tackar jag för...
tack tack tack...

En sak till bara.

Hur stänger man av friendly error messages i internet explorer?

Måste ha råkat sätta igång det av misstag...

under verktyg -> internet-alternativ -> avancerat bör du kunna hitta någon inställning om http-felmeddelanden.

lycka till!

Där, nu hittade jag, äntligen...
tog lång tid :-)