Avatar billede frank74 Nybegynder
10. maj 2006 - 19:18 Der er 9 kommentarer og
1 løsning

Problem med script

Er der nogen der kan fortælle mig hvad der er galt med dette script??

-----------------------------------

<%
if request.querystring("id") <> "" then
    if request.querystring("act") = "save" then
%>
<!-- #include file="ADOVBS.inc" -->
<%
Set rsSave = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../DATABASER/gaestebog.mdb")
rsSave.open "Bulletin", strDSN, adOpenDynamic, adLockOptimistic, adCmdTable
rsSave.find "ID=" & request.querystring("id") & ""
rsSave("fldName") = request.form("fldName")
rsSave.update
rsSave.close
set rsSave = Nothing
response.redirect "Administrer_gb.asp"
    end if   
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../DATABASER/gaestebog.mdb")
Conn.Open DSN
strSQL = "Select * From Bulletin WHERE ID=" & request.querystring("id") & ""
Set rs = Conn.Execute(strSQL)
fldName = rs("fldName")
rs.close
set rs=nothing
Conn.close
set Conn=nothing
%>
<html>
<head>
<title>EDIT</title>
<meta name="Generator" content="Stone's WebWriter 4">
<link rel="stylesheet" type="text/css" href="../../STYLE/style.css">
</head>
<body background="../../IMAGES/startile.gif">


<form action="<%=request.servervariables("script_name")%>?act=save&id=<%=request.querystring("id")%>" method="post">
<div style="text-align:center">
<table border="0" width="500">
<tr>
  <td>
  <div style="text-align:center">
  <table border="0">
    <tr>
    <td><font>Firstname:</font></td>
    <td><input type="text" name="fldName" value="<%=fldName%
    >"></td>
  </tr>
  </table>
<br>

<br>

<input type="submit" name="submit" value="opdater">
</div>
  </td>
</tr>
</table>
</div>


</form>
</body>
</html>
<%
else
response.redirect "./"
end if
%>

-----------------------------------

Jeg får følgende fejlmeddelse :

Directory Listing Denied
This Virtual Directory does not allow contents to be listed.

Det forstår jeg ikke lige...
Avatar billede jps6kb Novice
10. maj 2006 - 19:28 #1
Mit gæt: Din fil hedder index.asp og du kører på en Windows 2003 server.

Omdøb filen til Default.asp eller tilføj index.asp på dit website i din IIS: .o)
Avatar billede jps6kb Novice
10. maj 2006 - 19:28 #2
Svar self.
Avatar billede frank74 Nybegynder
10. maj 2006 - 19:50 #3
Tror ikke helt det er korrekt...
Siden ligger ikke på min egen server men på et webhotel.
Følgende script er næsten identisk. Dataene kommer dog fra en anden database der ligger i sammen mappe.

-----------------------------------

<%
If Not Session("UserID") <> "" THEN
Response.redirect "../MEDDELLELSER/ikke_logget_ind.htm"
End If

If request.querystring("action") = "Disconnect" THEN
Session.abandon
Response.redirect "../MEDDELLELSER/ikke_logget_ind.htm"
End If
%>
<%
if request.querystring("id") <> "" then
    if request.querystring("act") = "save" then
%>
<!-- #include file="ADOVBS.inc" -->
<%
Set rsSave = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../DATABASER/login.mdb")
rsSave.open "Users", strDSN, adOpenDynamic, adLockOptimistic, adCmdTable
rsSave.find "UserID=" & request.querystring("id") & ""
rsSave("LastName") = request.form("Lastname")
rsSave("FirstName") = request.form("Firstname")
rsSave("Username") = request.form("Username")
rsSave.update
rsSave.close
set rsSave = Nothing
response.redirect "vis_brugere.asp"
    end if   
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../DATABASER/login.mdb")
Conn.Open DSN
strSQL = "Select * From Users WHERE UserID=" & request.querystring("id") & ""
Set rs = Conn.Execute(strSQL)
Lastname = rs("LastName")
Firstname = rs("FirstName")
Username = rs("Username")
rs.close
set rs=nothing
Conn.close
set Conn=nothing
%>
<html>
<head>
<title>EDIT <%=ucase(Firstname)%></title>
<meta name="Generator" content="Stone's WebWriter 4">
<link rel="stylesheet" type="text/css" href="../../STYLE/style.css">
</head>
<body background="../../IMAGES/startile.gif">


<form action="<%=request.servervariables("script_name")%>?act=save&id=<%=request.querystring("id")%>" method="post">
<div style="text-align:center">
<table border="0" width="500">
<tr>
  <td>

<div style="text-align:center">
  <table border="0">
    <tr>
    <td><font>Firstname:</font></td>
    <td><input type="text" name="Firstname" value="<%=Firstname%>"></td>
  </tr>
  <tr>
    <td><font>Lastname:</font></td>
    <td><input type="text" name="Lastname" value="<%=Lastname%>"></td>
  </tr>
  <tr>
    <td><font>Username:</font></td>
    <td><input type="text" name="Username" value="<%=Username%>"></td>
  </tr>
  </table>
<br>

<br>

<input type="submit" name="submit" value="opdater">
</div>
  </td>
</tr>
</table>
</div>


</form>
</body>
</html>
<%
else
response.redirect "./"
end if
%>
Avatar billede jps6kb Novice
10. maj 2006 - 19:54 #4
Prøv og erstat

<%
else
response.redirect "./"
end if
%>


med


<%
else
'response.redirect "./"
end if
%>


Laver den samme fejl?
Avatar billede frank74 Nybegynder
10. maj 2006 - 20:01 #5
Nej. Det sidste script virker fint nok...
Avatar billede jps6kb Novice
10. maj 2006 - 20:14 #6
Men i det første, hvad der?
Avatar billede frank74 Nybegynder
10. maj 2006 - 20:18 #7
Der får jeg denne fejl:

Directory Listing Denied
This Virtual Directory does not allow contents to be listed.
Avatar billede jps6kb Novice
10. maj 2006 - 20:20 #8
.. og det var, hvis du ændrede det nederste? Altså, udkommenterede din redirect?
Avatar billede frank74 Nybegynder
10. maj 2006 - 20:26 #9
Nej det var uden. Hvis jeg laver det om får jeg ingen fejlmeddelelse men bare en hvid skærm.
Avatar billede jps6kb Novice
10. maj 2006 - 20:31 #10
Okay.. men så er det den sti du skal kigge på.
Den mangler en index fil. Ellers prøv at skrive et filnavn .. altså  ./index.htm .. eller hvad filen du vil have fat i hedder..
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester