/ Forside/ Teknologi / Internet / Hjemme sider / Spørgsmål
Login
Glemt dit kodeord? 		Brugernavn

Kodeord


Reklame
Top 10 brugere
Hjemme sider
#NavnPoint
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 : sej 		Vist : 327 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 : 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 : 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 : 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 : sej

Dato : 24-11-02 09:24
Tak for svaret smorch.

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

Kommentar
Fra : 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
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.