Access problemmer ???????

hvordan ser databasestreng ud?

databasestreng indeholder ikke navnet på databasen som den skal?

//Claus

nemlig.
Spørgsmålet erså hvor ligger databasen ?

Hvis du angiver stien til database..\\..\\db\\min.mdb

Så skal du havde  Server.Mappath(databasestreng) ind.

databasen bliver inkcluded i:

<!--#include file=\"settings.tlc\"-->

prøv lige at udskriv databasestreng:

response.write databasestreng

Ja men hvordan ser den ud?

d:\\home\\foldernavne\\db\\MIN.mbd
ellelr
..\\..\\db\\min.mdb

for den \"pejer\" ikke på din database fil.

Hvis værdien er i databasestreng:
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (databasestreng)

Eller den direkte:
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"/db/dindatabase.mdb\")

//Claus

min setings.tlc fil ser således ud

<%
databasestreng = \"http://www.nielsenbiler.dk/database/biler.mdb\"
%>

eagleeye >> hvordan skal minkode så se ud???

Jeg har eksvis Azeo jeg databaser skal ligge i en folder som hedder db og min  databasestreng  vil være d:\\home\\xxxxxxxxxx\\db\\min.mdb

Har nettonet nogle support sider?

Prøv dette istedet:
<%
\' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"/database.mdb\")
Conn.Open DSN

\' Hent fra databasen afhængig af værdien id fra URL
strSQL = \"Select * From bil Where bilID = \" & Request.Querystring(\"id\")
Set rs = Conn.Execute(strSQL)
... Kode
Conn.Close
Set Conn = Nothing
%>

Din connection string skunne være

databasestreng = \"/database/biler.mdb\"
også open
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (databasestreng)

Eller med stien til database:
<%
\' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"database/biler.mdb\")
Conn.Open DSN

\' Hent fra databasen afhængig af værdien id fra URL
strSQL = \"Select * From bil Where bilID = \" & Request.Querystring(\"id\")
Set rs = Conn.Execute(strSQL)
... Kode
Conn.Close
Set Conn = Nothing
%>

ok....jeg prøver dette...

har i været inde på nettonet.dk side og kigge...

de skriver iøvrigt til mig:
jeg vil lige gøre dig opmærksom på vi ikke køre med den nyeste version af asp, og at vi køre det på en NT 4 server.

har det indflydelse på ovenstående kode..



den include jeg har skal den ikke med skal jeg i stedet skrive det inde i <% ........ %>

hmmm....der er vist lidt forskellige meninger om hvordan det skal laves...

jeg har kikke kort på deres side men kan ikke rigtig finde en support omkring det.

Du skal rette :  databasestreng
databasestreng = \"/database/biler.mdb\"


Også skal du rette hvor du åbner din connection.
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (databasestreng)

gider i skrive hele koden sådan som den skal indsættes i min fil....

på forhånd tak...

Det har ingen betydning. Du kan godt droppe din include hvis du vil, så skal du bare rette conn.open linien til:

Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"/database/biler.mdb\")

tja de er i bund og grund ens.
der er bare lidt forskel på om du benytter en streng som som indeholder stien til din database eller om du skriver det direkte når du åbner databasen.

<% 
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"/database/biler.mdb\")
Sql = \"Select * from bil where bilID= \" & request.querystring(\"id\")
Set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.Open sql, conn, 3, 3
On Error Resume Next
%>

dezigner>> Det har jeg gjort!

min kode:
<% 
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"/database/biler.mdb\")
Sql = \"Select * from bil where bilID= \" & request.querystring(\"id\")
Set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.Open sql, conn, 3, 3
On Error Resume Next
%>

og så drop include filen i første omgang

Ok....jeg prøver dette...!!!


jeg vender frygtlig tilbage.... .-)

eagleeye\'s kode er næsten korekt her er en lille rettelse:
<% 
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"./database/biler.mdb\")
Sql = \"Select * from bil where bilID= \" & request.querystring(\"id\")
Set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.Open sql, conn, 3, 3
On Error Resume Next
%>

Det fungere hos mig!!!

webmaster-dansens-verden >>
Ok ... kender du nettonet?

ok...der virkede....der er point til den af jer der kan løse mit næste problem

***********
<!-- #INCLUDE FILE=\"adovbs.inc\" -->
<!--#include file=\"settings.tlc\"-->
<%
if not session(\"login\") = \"Jubii\" then
response.redirect \"login.asp\"
end if



Set upload = Server.CreateObject(\"Persits.Upload.1\")
upload.OverwriteFiles = False
upload.SetMaxSize 500000, False


temp = Upload.SaveVirtual(\"./billeder/\")
**************



den skriver fejl i linjen:

Set upload = Server.CreateObject(\"Persits.Upload.1\")


hjælp igen igen.....

jeg får følgende fejl:

Server object error \'ASP 0177 : 800401f3\'

Server.CreateObject Failed

/prvcgi/update/update-ny-bil1.asp, line 8

Invalid class string

Er du sikker på at du har adgang til Persits.Upload compunenten hos nettonet?

Det hedder ikke \"persits\", men \"persist\".

Eller er det mig der tager fejl?

Jeg var også i tvivl om stavemåden men det er med s til sidst.

Eller du kan evt. prøve at fjerne \\, så det kommer til at se sådan hér ud.

prvcgi/update/update-ny-bil1.asp

(Passer din sti?)

Jeg har lige snakket med NETTONET...


deres upload komponent hedder:


sa-fileup

kender i den..???

hvordan skal koden så være?????????

er der en der ved det??????

Her er et link til hvordan det skal laves:
http://www.activeserverpages.dk/aspdigital/kapitel5/safileup.asp

Eller sådan:

HTML formularen(upload.htm):
<form enctype=\"multipart/form-data\" method=\"post\" action=\"upload.asp\">
Enter filename to upload: <input type=\"file\" name=\"f1\"><br>
<input type=\"submit\" value=\"Upload\">
</form>

##################################

Asp-filen(upload.asp):
***********
<!-- #INCLUDE FILE=\"adovbs.inc\" -->
<!--#include file=\"settings.tlc\"-->
<%
if not session(\"login\") = \"Jubii\" then
response.redirect \"login.asp\"
end if
<%
Set upl = Server.CreateObject(\"SoftArtisans.FileUp\")
upl.SaveAs \"C:\\temp\\upload.out\"
%>
**************

Ups, der var en fejl.
Hér er den rigtige:

HTML formularen(upload.htm):
<html>
<body>
<form enctype=\"multipart/form-data\" method=\"post\" action=\"upload.asp\">
Enter filename to upload: <input type=\"file\" name=\"f1\"><br>
<input type=\"submit\" value=\"Upload\">
</form>
</body>
</html>
##################################

Asp-filen(upload.asp):

***********
<!-- #INCLUDE FILE=\"adovbs.inc\" -->
<!--#include file=\"settings.tlc\"-->

##########Indsættes i body sektionen############
<%
if not session(\"login\") = \"Jubii\" then
response.redirect \"login.asp\"
end if
%>
<%
Set upl = Server.CreateObject(\"SoftArtisans.FileUp\")
upl.SaveAs \"C:\\temp\\upload.out\"
%>
**************

jeg fatter det ikke.......

hele min kode ser sådan ud...

********************
<!-- #INCLUDE FILE=\"adovbs.inc\" -->
<!--#include file=\"settings.tlc\"-->
<%
if not session(\"login\") = \"Jubii\" then
response.redirect \"login.asp\"
end if



Set upload = Server.CreateObject(\"Persits.Upload.1\")
upload.OverwriteFiles = False
upload.SetMaxSize 500000, False


temp = Upload.SaveVirtual(\"./billeder/\")


For Each File in Upload.Files 

If File.ImageType <> \"GIF\" and File.ImageType <> \"JPG\" Then
  Response.Write \"GIF or JPG files only please!\"
  Exit For
End If
file1 = File.ExtractFileName


Next


Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & databasestreng
Sql = \"Select * from bil where bilID=\" & upload.form(\"ID\")
  Set objRec = Server.CreateObject(\"ADODB.Recordset\")
objRec.Open sql, conn, 3, 3
On Error Resume Next
objRec.MoveFirst

   
       
    \' bestem parent på side hvis tom vælges parent = 0 som betyder hovedmenu
    if file1 <> \"\" then
    objRec(\"billede\") = file1
    end if
    objRec(\"Fabrikat\") = upload.form(\"fabrikat\")
    objRec(\"Model\") = upload.form(\"model\")
    objRec(\"Type\") = upload.form(\"type\")
    objRec(\"Argang\") = upload.form(\"aargang\")
    objRec(\"km\") = upload.form(\"km\")
    objRec(\"pris\") = upload.form(\"pris\")
    objRec(\"ugensbil\") = upload.form(\"ugens\")
   
    objRec(\"udstyr\") = upload.form(\"udstyr\")
    objRec.Update

    \' now close and clean up
objRec.Close
Set objRec = Nothing
   
    response.redirect \"Update-bilerne.asp\"
%>



***********************

hvordan skal den se ud...


jeg er bare designer derfor er jeg nok lidt dum til det her asp stuff...


men jeg har haft en programmørg på det...men han kunne vist ikke overskue og gøre det færdig....

håber der er nogen der kan hjælpe...




En ting mere:
kan man når man har uploaded nogle billeder på serveren......

kan man så slette dem igen, altså med noget asp kode????
(så man fri for manuelt skal gå ind og ryde op)


Hvis en af jer  er interesseret i at lave de to ting...så kan jeg godt afse et par 100,- kr.

send evnt. en mail til mig og meget gerne med dit telefon nr:

broendum@post12.tele.dk

Jeg vil anbefale at benytte www.activeserverpages.dk eller www.html.dk

De har både stepbystep tutorials, artikler, og færdige downloads. Bl.a. til sa-fileup.

jamen jeg er ikke programmør, samt har ikke tid til at sætte mig ind i det her...

derfor

Har du fået løst problemet?

//Claus

Fant du en løsning?