Avatar billede miomio Nybegynder
26. oktober 2004 - 17:21 Der er 7 kommentarer

Hvordan henviser jeg rigtigt andre sider

Problemet er at i den nedenstående kode nedviser jeg til roden på webseveren, men jeg vil gerne kunne flytte dokumenterne.

Jeg tror der er problemer i følgende linier:

76: DSN = DSN & "DBQ=" & Server.MapPath("/indformdb.mdb")

111: response.redirect("svar.asp")

og især

115: <form action="/indform.asp?mode=save" method="post" onSubmit="return valid(this)">

Jeg ved kort sagt ikke hvordan jes skal gøre for at kunne placere koden andre steder end i roden på den web-server den ligger på

<html>
<title>Konference Tilmelding</title>
<head>

</head>
<body>

<script type="text/javascript">
function valid(theForm){

  if(theForm.Fornavn.value==""){
    alert("Angiv Fornavn");
    theForm.Fornavn.focus();
    return false;
  }

  if(theForm.Efternavn.value==""){
    alert("Angiv Efternavn");
    theForm.Efternavn.focus();
    return false;
  }

  if(theForm.Virksomhed.value==""){
    alert("Angiv Virksomhed");
    theForm.Virksomhed.focus();
    return false;
  }

  if(theForm.Adresse.value==""){
    alert("Angiv Adresse");
    theForm.Adresse.focus();
    return false;
  }

  if(theForm.Postnummer.value==""){
    alert("Angiv Postnummer");
    theForm.Postnummer.focus();
    return false;
  }

  if(theForm.Sted.value==""){
    alert("Angiv By");
    theForm.Sted.focus();
    return false;
  }

  if(theForm.Mailadresse.value==""){
    alert("Angiv Mailadresse");
    theForm.Mailadresse.focus();
    return false;
  }

  var elm = theForm.Runde1,chck = false;
  for(i=0;elm.length>i;i++)chck = chck||elm[i].checked;
  if(!chck){
    alert("Vælg session i 1. runde")
    theForm.Runde1.focus();
    return false;
  }

  elm = theForm.Runde2,chck = false;
  for(i=0;elm.length>i;i++)chck = chck||elm[i].checked;
  if(!chck){
    alert("Vælg session i 2. runde")
    theForm.Runde1.focus();
    return false;
  }
}
</script>

<%
if request.querystring("mode") = "save" then
' 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("/indformdb.mdb")
Conn.Open DSN

' SQL sætning opbygges 

strSQL = "Insert into personer ("

strSQL = strSQL & "Fornavn, "
strSQL = strSQL & "Efternavn, "
strSQL = strSQL & "Virksomhed, "
strSQL = strSQL & "Adresse, "
strSQL = strSQL & "Postnummer, "
strSQL = strSQL & "Sted, "
strSQL = strSQL & "Mailadresse, "
strSQL = strSQL & "Runde1, "
strSQL = strSQL & "Runde2) "

strSQL = strSQL & "values("

strSQL = strSQL & "'" & Request.Form("Fornavn") & "',"
strSQL = strSQL & "'" & Request.Form("Efternavn") & "',"
strSQL = strSQL & "'" & Request.Form("Virksomhed") & "',"
strSQL = strSQL & "'" & Request.Form("Adresse") & "',"
strSQL = strSQL & "'" & Request.Form("Postnummer") & "',"
strSQL = strSQL & "'" & Request.Form("Sted") & "',"
strSQL = strSQL & "'" & Request.Form("Mailadresse") & "',"
strSQL = strSQL & "'" & Request.Form("Runde1") & "',"
strSQL = strSQL & "'" & Request.Form("Runde2") & "')"

' SQL sætning eksekveres
Conn.Execute(strSQL)

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
response.redirect("svar.asp")
end if
%>

<form action="/indform.asp?mode=save" method="post" onSubmit="return valid(this)">
<p>Fornavn:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input type="text" name="Fornavn" size="26"></p>
<p>Efternavn:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input type="text" name="Efternavn" size="26"></p>
<p>Virksomhed:&nbsp; <input type="text" name="Virksomhed" size="26"></p>
<p>Adresse:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input type="text" name="Adresse" size="34"></p>
<p>Postnummer:&nbsp; <input type="text" name="Postnummer" size="8"></p>
<p>By:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type="text" name="Sted"></p>
<p>Mailadresse:&nbsp; <input type="text" name="Mailadresse"></p>
<p>Første runde sessioner:
<input type="radio" name="Runde1" value="1"> Session 1
<input type="radio" name="Runde1" value="2"> Session 2
<input type="radio" name="Runde1" value="3"> Session 3
<input type="radio" name="Runde1" value="4"> Session 4
<input type="radio" name="Runde1" value="5"> Session 5
<input type="radio" name="Runde1" value="6"> Session 6</p>

<p>Anden runde sessioner:
<input type="radio" name="Runde2" value="1"> Session 1
<input type="radio" name="Runde2" value="2"> Session 2
<input type="radio" name="Runde2" value="3"> Session 3
<input type="radio" name="Runde2" value="4"> Session 4
<input type="radio" name="Runde2" value="5"> Session 5
<input type="radio" name="Runde2" value="6"> Session 6</p>


<input type="submit"  value="Send">
</form>

</Body>
</html>
Avatar billede tofte Juniormester
26. oktober 2004 - 19:29 #1
du kan skrive ./informdb.xxx altså et . foran, så henviser den altid til den konkrete mappe
Avatar billede tofte Juniormester
26. oktober 2004 - 19:29 #2
altså den mappe som siden ligger i!
Avatar billede miomio Nybegynder
26. oktober 2004 - 19:46 #3
Det giver følgende fejl:

HTTP 500.100 - Internal Server Error - ASP error
Apache

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

Technical Information (for support personnel)

Error Type:
ADODB.Connection.1 (0x800A0BB9)
The application is using arguments that are of the wrong type, are out of acceptable range, or are in conflict with one another.
/itv/Indform.asp, line 77


Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

Page:
POST 103 bytes to /itv/Indform.asp

POST Data:
Fornavn=sd&Efternavn=ds&Virksomhed=sd&Adresse=sd&Postnummer=ds&Sted=ds&Mailadresse=sd&Runde1=2&Runde2=3
Avatar billede tofte Juniormester
26. oktober 2004 - 20:02 #4
giver den fejl hvis du skriver
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("./indformdb.mdb")
Conn.Open DSN

og indform.mdb ligger i samme mappe som siden, altså itv?
Avatar billede tofte Juniormester
26. oktober 2004 - 20:21 #5
Følgende virker ved mig

<html>
<title>Konference Tilmelding</title>
<head>

</head>
<body>

<script type="text/javascript">
function valid(theForm){

  if(theForm.Fornavn.value==""){
    alert("Angiv Fornavn");
    theForm.Fornavn.focus();
    return false;
  }

  if(theForm.Efternavn.value==""){
    alert("Angiv Efternavn");
    theForm.Efternavn.focus();
    return false;
  }

  if(theForm.Virksomhed.value==""){
    alert("Angiv Virksomhed");
    theForm.Virksomhed.focus();
    return false;
  }

  if(theForm.Adresse.value==""){
    alert("Angiv Adresse");
    theForm.Adresse.focus();
    return false;
  }

  if(theForm.Postnummer.value==""){
    alert("Angiv Postnummer");
    theForm.Postnummer.focus();
    return false;
  }

  if(theForm.Sted.value==""){
    alert("Angiv By");
    theForm.Sted.focus();
    return false;
  }

  if(theForm.Mailadresse.value==""){
    alert("Angiv Mailadresse");
    theForm.Mailadresse.focus();
    return false;
  }

  var elm = theForm.Runde1,chck = false;
  for(i=0;elm.length>i;i++)chck = chck||elm[i].checked;
  if(!chck){
    alert("Vælg session i 1. runde")
    theForm.Runde1.focus();
    return false;
  }

  elm = theForm.Runde2,chck = false;
  for(i=0;elm.length>i;i++)chck = chck||elm[i].checked;
  if(!chck){
    alert("Vælg session i 2. runde")
    theForm.Runde1.focus();
    return false;
  }
}
</script>

<%
if request.querystring("mode") = "save" then
' 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("./indformdb.mdb")
Conn.Open DSN

' SQL sætning opbygges 

strSQL = "Insert into personer ("

strSQL = strSQL & "Fornavn, "
strSQL = strSQL & "Efternavn, "
strSQL = strSQL & "Virksomhed, "
strSQL = strSQL & "Adresse, "
strSQL = strSQL & "Postnummer, "
strSQL = strSQL & "Sted, "
strSQL = strSQL & "Mailadresse, "
strSQL = strSQL & "Runde1, "
strSQL = strSQL & "Runde2) "

strSQL = strSQL & "values("

strSQL = strSQL & "'" & Request.Form("Fornavn") & "',"
strSQL = strSQL & "'" & Request.Form("Efternavn") & "',"
strSQL = strSQL & "'" & Request.Form("Virksomhed") & "',"
strSQL = strSQL & "'" & Request.Form("Adresse") & "',"
strSQL = strSQL & "'" & Request.Form("Postnummer") & "',"
strSQL = strSQL & "'" & Request.Form("Sted") & "',"
strSQL = strSQL & "'" & Request.Form("Mailadresse") & "',"
strSQL = strSQL & "'" & Request.Form("Runde1") & "',"
strSQL = strSQL & "'" & Request.Form("Runde2") & "')"

' SQL sætning eksekveres
Conn.Execute(strSQL)

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
response.redirect("./svar.asp")
end if
%>

<form action="./indform.asp?mode=save" method="post" onSubmit="return valid(this)">
<p>Fornavn:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input type="text" name="Fornavn" size="26"></p>
<p>Efternavn:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input type="text" name="Efternavn" size="26"></p>
<p>Virksomhed:&nbsp; <input type="text" name="Virksomhed" size="26"></p>
<p>Adresse:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input type="text" name="Adresse" size="34"></p>
<p>Postnummer:&nbsp; <input type="text" name="Postnummer" size="8"></p>
<p>By:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type="text" name="Sted"></p>
<p>Mailadresse:&nbsp; <input type="text" name="Mailadresse"></p>
<p>Første runde sessioner:
<input type="radio" name="Runde1" value="1"> Session 1
<input type="radio" name="Runde1" value="2"> Session 2
<input type="radio" name="Runde1" value="3"> Session 3
<input type="radio" name="Runde1" value="4"> Session 4
<input type="radio" name="Runde1" value="5"> Session 5
<input type="radio" name="Runde1" value="6"> Session 6</p>

<p>Anden runde sessioner:
<input type="radio" name="Runde2" value="1"> Session 1
<input type="radio" name="Runde2" value="2"> Session 2
<input type="radio" name="Runde2" value="3"> Session 3
<input type="radio" name="Runde2" value="4"> Session 4
<input type="radio" name="Runde2" value="5"> Session 5
<input type="radio" name="Runde2" value="6"> Session 6</p>


<input type="submit"  value="Send">
</form>

</Body>
</html>
Avatar billede miomio Nybegynder
27. oktober 2004 - 09:35 #6
Det virker - Hurra for Tofte
Avatar billede tofte Juniormester
27. oktober 2004 - 11:14 #7
Det var heldigt, så får du lige et svar.
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