Kandu.dk - ASP og Access Database


/ Forside/ Teknologi / Internet / Hjemme sider / Spørgsmål

Glemt dit kodeord?

Brugernavn*

Kodeord *

Husk mig

Brugerservice

Kom godt i gang

Bliv medlem

Seneste indlæg

Find en bruger

Stil et spørgsmål

Skriv et tip

Fortæl en ven

Pointsystemet

Kontakt Kandu.dk

Emnevisning

Kategorier

Alfabetisk

Karriere

Interesser

Teknologi

Reklame

Top 10 brugere

Hjemme sider

#	Navn	Point
1	molokyle	23766
2	Klaudi	7947
3	bentjuul	7763
4	BjarneD	4584
5	severino	4460
6	Manse9933	4366
7	natmaden	3985
8	disken	3947
9	miritdk	3593
10	refi	3578

ASP og Access Database
Fra : Er ikke online

sej

Vist : 328 gange
140 point
Dato : 21-11-02 20:03

Jeg er gået igang med at lære om ASP og databaser. Jeg har fået efterfølgende eksempel til at virke på min egen PC'er. Er der nogen der kan fortælle mig hvad jeg skal gøre for at få det til at virke hos min internetudbyder (Webhotel)??

<% @Language = "VBScript" %>
<%
Option Explicit
Response.Expires = 0
Dim objConn, objRS, strQuery
Dim strConnection
Set objConn = Server.CreateObject("ADODB.Connection")
strConnection = "DSN=Northwind;Database=sej;"
strConnection = strConnection & "UID=sa;PWD=;"
objConn.Open strConnection
strQuery = "SELECT Produktnavn, PrisPrEnhed FROM Produkter "
strQuery = strQuery & "ORDER BY Produktnavn"
Set objRS = objConn.Execute(strQuery)
%>
<HTML>
<BODY>
All products stored in the Products Table,
ordered by product name:<BR><BR>
<%
While not objRS.EOF
   Response.Write objRS("Produktnavn") & " *"
   Response.Write FormatCurrency(objRS("PrisPrEnhed")) & ")<BR>"
   objRS.MoveNext
Wend

objRS.close
objConn.close
Set objRS = Nothing
Set objConn = Nothing
%>
</BODY>
</HTML>

Kommentar
Fra : Er ikke online

smorch

Dato : 21-11-02 21:50

strConnection = "DSN=Northwind;Database=sej;"
strConnection = strConnection & "UID=sa;PWD=;"

Skal udskiftes med :

strConnection = "Provider=Microsoft.JetOLEDB.4.0;Data Source=" & server.MapPath("databasensnavn.mdb")

Kommentar
Fra : Er ikke online

sej

Dato : 22-11-02 17:12

Når jeg prøver dette får jeg denne meddelelse på siden.

HTTP 500 - Intern serverfejl
Internet Explorer

Er der nogen krav til hvor tingene skal ligge på webhottellet, eller skal man tilmeldes noget specielt?

Jeg har gjort som du beskrev

<% @Language = "VBScript" %>
<%
Option Explicit
Response.Expires = 0
Dim objConn, objRS, strQuery
Dim strConnection
Set objConn = Server.CreateObject("ADODB.Connection")
strConnection = "Provider=Microsoft.JetOLEDB.4.0;Data Source=" & server.MapPath("fpnwind.mdb")
objConn.Open strConnection
strQuery = "SELECT Produktnavn, PrisPrEnhed FROM Produkter "
strQuery = strQuery & "ORDER BY Produktnavn"
Set objRS = objConn.Execute(strQuery)

Accepteret svar
Fra : Er ikke online

smorch

Modtaget 140 point
Dato : 23-11-02 11:56

Jeg har fjernet

option explicit

Prøv dette

<% @Language = "VBScript" %>
<%

Response.Expires = 0
Dim objConn, objRS, strQuery
Dim strConnection
Set objConn = Server.CreateObject("ADODB.Connection")
strConnection = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("fpnwind.mdb")

objConn.Open strConnection
strQuery = "SELECT Produktnavn, PrisPrEnhed FROM Produkter "
strQuery = strQuery & "ORDER BY Produktnavn"
Set objRS = objConn.Execute(strQuery)%>

Godkendelse af svar
Fra : Er ikke online

sej

Dato : 24-11-02 09:24

Tak for svaret smorch.

Nu virker den på websitet
også uden jeg fjerner option explicit

Kommentar
Fra : Er ikke online

smorch

Dato : 24-11-02 10:48

Der ligger i øvrigt et glimrende asp kursus på html.dk og jeg har en zip liggende med alle eksempelfilerne hvis du er interesseret.

MVH

smorch
http://morch.dk/indexlm.html

Du har følgende muligheder

Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.

Søg

Reklame

Statistik

Spørgsmål :	177558
Tips :	31968
Nyheder :	719565
Indlæg :	6408925
Brugere :	218888

Månedens bedste

Årets bedste

Sidste års bedste