Hej, jag har skrivit följande script för ca 8 år sedan och inte hållit på med programmering sedan dess. Är detta för SQL-serverdatabas eller för MS ACCESS? är det "#" som man byter ut?. Jag ska använda det till en ACCESS databas.

Jag skulle även byta till följande databas koppling

MyConn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("databas/hemsidor.mdb") & ";"

Har provat att ändra MyConn till Connstring men det hjälpte ej

Tacksam om någon kan hjälpa mig

MVH/Bo

<%

Set Conn = Server.CreateObject("ADODB.Connection")
Connstring = "hemsidor"
Conn.Open(Connstring)

Set rst = Server.CreateObject("ADODB.Recordset")
sqlstring = "SELECT DISTINCT Kategori FROM Skanetorget Where Datum > # " & dateadd("d", - 21,now) & "#"

rst.Open sqlstring, Conn, 3, 3

Set rstk = Server.CreateObject("ADODB.Recordset")
sqlstring = "SELECT DISTINCT PostAdress FROM Skanetorget Where Datum > # " & dateadd("d", - 21,now) & "#"

rstk.Open sqlstring, Conn, 3, 3


Set rsCount2 = Server.CreateObject("ADODB.Recordset")
sqlstring = "SELECT Count(*) As Antal FROM Skanetorget Where Datum > # " & dateadd("d", - 21,now) & "#"

rsCount2.Open sqlstring, Conn, 3, 3


%>


<TABLE border=0 bgcolor=#FF9999 width=100% cellPadding=2 cellSpacing=0>

<TR><TD height=22>&nbsp;<FONT Size=-1>Det finns (<%=rsCount2.Fields("Antal")%> st) annonser inlagda</FONT></TD></TR></TABLE>
<TABLE border=0 bgcolor=#FF9999 width=100% cellPadding=2 cellSpacing=0>

<TR>
<TD WIDTH=80>

<FORM METHOD="post" ACTION="Search_Skanetorget_Result.asp" id=form1 name=form1>


<STRONG><FONT face=Verdana size=2>&nbsp;Sök&nbsp;annons:
</FONT></STRONG>
</TD>
<TD WIDTH=100%>
<FONT FACE="Arial,Helvetica" SIZE=2>

</FONT>
&nbsp;&nbsp;&nbsp;
<FONT FACE="Arial,Helvetica" SIZE=2>

</FONT>
</TD>
</TR>
<TR>
<TD Height=30>

&nbsp;Annonstext:

</TD>
<TD>

<INPUT NAME="search" SIZE="26" style="FONT-FAMILY: Verdana; FONT-SIZE: 10pt; HEIGHT: 22px; POSITION: relative; WIDTH: 280px">
</FONT>


</TD></TR></TBODY></TABLE>

<TABLE border=0 bgcolor=#FF9999 width=100% cellPadding=2 cellSpacing=0>

<TR>
<TD WIDTH=80>&nbsp;</TD><TD width=130><SELECT name="Br">
<option selected value="">-- Alla kategorier --</option>
<% Do Until rst.EOF%>
<option value="<%=rst.Fields("Kategori")%>"><%= rst.Fields("Kategori")%></option>
<% rst.MoveNext %>
<% Loop %></select>&nbsp;&nbsp;</TD><TD><SELECT name="PAdress">
<option selected value="">-- Alla Kommuner --</option>
<% Do Until rstk.EOF%>
<option value="<%=rstk.Fields("PostAdress")%>"><%= rstk.Fields("PostAdress")%></option>
<% rstk.MoveNext %>
<% Loop %></select></TD><TD width=100%>&nbsp;</TD></TR><TR>
<TD>&nbsp;Annonstyp:&nbsp;&nbsp;
</td><td><INPUT type="radio"
name="Atyp" value="" checked> alla typer</td><td>
<INPUT type="radio"
name="Atyp" value="Bytes"> Bytes</td><TD>&nbsp; </TD></tr>

<tr><td>&nbsp;
</td><td><INPUT type="radio"
name="Atyp" value="Saljes"> Säljes</td><td>
<INPUT type="radio"
name="Atyp" value="Uthyres"> Uthyres</td><TD>&nbsp; </TD></tr><tr><td>&nbsp;

</td><td><INPUT type="radio"
name="Atyp" value="Kopes"> Köpes</td><td>


<INPUT type="radio"
name="Atyp" value="Onskashyra"> Önskas hyra
</TD><TD>&nbsp; </TD>
</TR>
<TR>
<TD width=80 height=30>&nbsp;</TD><TD>


<FONT FACE="Arial,Helvetica" SIZE=2>
<SELECT NAME="max">
<OPTION VALUE="5" selected>5 träffar/sida</OPTION>
<OPTION VALUE="10">10 träffar/sida</OPTION>
<OPTION VALUE="50">50 träffar/sida</OPTION>
</SELECT>
</FONT>
</TD><TD valign=bottom align=right>
<input type="IMAGE" NAME=Submit VALUE="ok" SRC="bilder_SkaneC/Knapp_sok4.gif" ALT="Skicka" value="ok" border=0
>
</TD><TD>&nbsp; </TD></TR><TR height=1 bgcolor="#CC6666"><TD height=1 ><IMG height=1 src="bilder_SkaneC/1_pixel_tom.gif"
width=1 ></TD><TD height=1><IMG height=1 src="bilder_SkaneC/1_pixel_tom.gif"
width=1 ></TD><TD height=1><IMG height=1 src="bilder_SkaneC/1_pixel_tom.gif"
width=1 ></TD><TD height=1><IMG height=1 src="bilder_SkaneC/1_pixel_tom.gif"
width=1 ></TD></TR></TD></TR></TBODY></TABLE>

</FORM>
<TABLE WIDTH=450 BORDER=0 CELLSPACING=0 CELLPADDING=0>
<TR>
<TD><B>&nbsp;&nbsp;&nbsp;Minimera ditt sökresultat</B></TD></TR></TABLE>
<TABLE WIDTH=450 BORDER=0 CELLSPACING=7 CELLPADDING=1>

<TR>
<TD><img src="bilder_SkaneC/showinfo2.gif"></TD><TD valign=center><FONT face=Verdana size=2> Välj ev. en kategori för att minimera antalet sökresultat.</FONT> </TD>
</TR>
<TR>
<TD><img src="bilder_SkaneC/showinfo2.gif"></TD><TD valign=center><FONT face=Verdana size=2> Välj ev. en kommun för att minimera antalet sökresultat.</FONT> </TD>
</TR>
<TR>
<TD><img src="bilder_SkaneC/showinfo2.gif"></TD><TD valign=center><FONT face=Verdana size=2> Sök efter ord i annonstexten.</FONT> </TD>
</TR>
<TR>
<TD><img src="bilder_SkaneC/showinfo2.gif"></TD><TD valign=center><FONT face=Verdana size=2> Du har även möjlighet att välja antalet träffar per sida.</FONT> </TD>
</TR>
</TABLE>
<BR>

SQL:en är för Access (datum omges med #). För att använda din "nya" connectionstring byter du till:

Connstring = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("databas/hemsidor.mdb") & ";"

/Johan

Jag provade med detta tidigare, men jag får följande meddelande. Skripten har fungerat tidigare (för 8 år sedan) så jag vet inte vad som är fel. /MVH Bo

Technical Information (for support personnel)

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x274 Thread 0xda4 DBC 0x1264024 Jet'.
/test/skanecentrum/Include_default.asp, line 6


Browser Type:
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022)

Page:
GET /test/skanecentrum/default.asp

Är det någon som vet vad felmeddelandet betyder?
Tack på förhand/Bo

Connstring = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("databas/hemsidor.mdb") & ";"


Ligger det något fel i denna?, jag provat med allt tycker jag, jag vet int vad jag ska gör. Hoppas någon kan hjälpa mig.

MVH/Bo