Avatar billede martin29 Nybegynder
05. marts 2005 - 11:37 Der er 68 kommentarer og
1 løsning

HJÆLP til Formular i ASP.

Hejsa!

Jeg har virkelig brug for jeres hjælp.
Derfor er det også vigtigt for mig at få forklaret helt nøjagtig hvad mit problem er.

1. jeg kan ikke får dropdown menu til at virke.
2. Kan ikke få Checked/unchecked til og virke.

Som i ser kommer jeg over på send.asp når jeg trykker send...
Men det der er mit brændende ønske er at få formulares indhold sendt i mail til mig, den der udfylder og lagret i databasen. Altså 3 funktioner... Hvordan gør jeg det, når jeg ikke har jmail, aspmail og CDONTS. Kan jeg ikke bare bruge et script via TDC. (<FORM ACTION = "http://cgi.inet.tele.dk/cgi-bin/form_processor.cgi" METHOD = "POST"> )

Til disse point har jeg enkelte spørgsmål til for at få det endeligt til at virke.

---
Mvh
Martin


KODEN
----------------------
<html>
<head>
<meta name="robots" content="NOINDEX">
<title>Kunde Database</title>
<style type="text/css">
<!--
.style3 {
    font-size: 24px;
    font-family: Verdana, Arial, Helvetica, sans-serif;
    font-weight: bold;
}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</head>

<body>
<div id="Layer7" style="position:absolute; left:240px; top:130px; width:665px; height:464px; z-index:7">
  <p>
<form action="send.asp" method="POST" class="css">
    <div align="center"><center>
      <table border="0" cellpadding="2" cellspacing="0" width="89%"> 
        <tr>
          <td align="left" valign="top">Brugernavn </td>
          <td width="77%" colspan="2"><INPUT TYPE="text" NAME="Bruger" class="css" size="40" tabindex="1"></td>
        </tr>
        <tr>
            <td align="left" width="23%" valign="top"><font size="3"
            face="Arial">E-mail: </font></td>
            <td colspan="2" width="77%"><INPUT TYPE="text" NAME="Email" class="css" size="40" tabindex="2"></td>
        </tr>
        <tr>
            <td align="left" width="23%" valign="top"><font size="3"
            face="Arial">Navn: </font></td>
            <td width="77%" colspan="2"><INPUT TYPE="text" NAME="Navn" class="css" size="40" tabindex="1"></td>
        </tr>
        <tr>
            <td align="left" width="23%" valign="top"><font size="3"
            face="Arial">Adresse: </font></td>
            <td colspan="2" width="77%"><INPUT TYPE="text" NAME="Adresse" class="css" size="40" tabindex="1"></td>
        </tr>
        <tr>
            <td align="left" width="23%" valign="top"><font size="3"
            face="Arial">Postnr: </font></td>
            <td colspan="2" width="77%"><INPUT TYPE="text" NAME="Postnr" class="css" size="8" tabindex="1"></td>
        </tr>
        <tr>
            <td width="23%" height="29" align="left" valign="top"><font size="3"
            face="Arial">By: </font></td>
            <td colspan="2" width="77%"><INPUT TYPE="text" NAME="By" class="css"  size="40" tabindex="1"></td>
        </tr>
        <tr>
            <td align="left" width="23%" valign="top"><font size="3"
            face="Arial">Land: </font></td>
            <td colspan="2" width="77%"><INPUT TYPE="text" NAME="Land" class="css"  size="40" tabindex="1"></td>
        </tr>
        <tr>
            <td align="left" width="23%" valign="top"><font size="3"
            face="Arial">Tlf: </font></td>
            <td colspan="2" width="77%"><INPUT TYPE="text" NAME="Tlf" class="css"  size="40" tabindex="1"></td>
        </tr>
        <tr>
            <td align="left" width="23%" valign="top"><font size="3"
            face="Arial">Vare k&oslash;b/antal</font></td>
            <td colspan="2" width="77%">           
            <INPUT NAME="Antalvarer" TYPE="text" class="css" tabindex="1" size="2" maxlength="2">           
            <select name="Varer">
              <option></option>             
              <option>kamera 5</option>
              <option>kamera 6</option>
              <option>kamera 9.9</option>
              <option>h&oslash;jtaler</option>
              <option>256 mb</option>
              <option>512 mb</option>
              </select></td>
        </tr>
        <tr>
            <td align="left" width="23%" valign="top"><font size="3"
            face="Arial">Formular modtaget </font></td>
            <td colspan="2" width="77%"><input type="checkbox" name="Formular" value="checkbox"></td>
        </tr>
        <tr>
            <td align="left" width="23%" valign="top"><font size="3"
            face="Arial">Betaling modtaget </font></td>
            <td colspan="2" width="77%"><input type="checkbox" name="Betaling" value="checkbox">
            <INPUT TYPE="text" NAME="Beløb" class="css" size="8" tabindex="1"></td>
        </tr>
        <tr>
            <td align="left" width="23%" valign="top"><font size="3"
            face="Arial">Sendt </font></td>
            <td colspan="2" width="77%"><input type="checkbox" name="Sendt" value="checkbox">           
            <input type="text" name="Tt" class="css"  size="36" tabindex="1"></td>
        </tr>
        <tr>
            <td align="Left" valign="top" width="23%"><font
            size="3" face="Arial">Besked:</font></td>
            <td valign="top" width="77%"><textarea name="Besked" rows="4" cols="31" class="css" tabindex="4"></textarea></td>
        </tr>
        <tr>
            <td width="23%"></td>
            <td colspan="2" width="77%">
            <input type="submit" name="B1" value="Tilf&oslash;j" class="css" tabindex="5">
            <INPUT TYPE="reset" NAME="Slet" class="css" tabindex="6"></td>
        </tr>
    </table>
    </center></div>
</form>
  <strong><br>
  </strong></p>
</div>
<div id="Layer1" class="style3" style="position:absolute; left:277px; top:85px; width:276px; height:32px; z-index:8">Kunde Database</div>
<div id="Layer2" style="position:absolute; left:14px; top:22px; width:137px; height:171px; z-index:9"><a href="secher.asp">Rediger Databasen </a><br>
<a href="soeg.asp">S&oslash;g i Databasen</a></div>
</body>
</html>
Avatar billede moejensen Nybegynder
06. marts 2005 - 10:59 #1
Hvis du ikke har et mailkomponent til rådoghed, kan du desværre ikke sende en amil fra din side.
Avatar billede moejensen Nybegynder
06. marts 2005 - 11:04 #2
hvad mener du med:

1. jeg kan ikke får dropdown menu til at virke.
2. Kan ikke få Checked/unchecked til og virke.

kan du ikke chekke checkboxene, eller kan du ikke få gemt indholdet i databasen?
Avatar billede martin29 Nybegynder
06. marts 2005 - 11:13 #3
Det vil sige at det kan ikke lade sig gøre at lægge 2 funktioner i send knappen. En hvor indholdet bliver sendt til DB og en funktion hvor det sendes mail via TDC Scriptet?

Hvad nu at hvis indholdet bliver vist på en ny sida og man skal klikke igen for at accepte det indtastede?


Kan desværre ikke få indholdet gemt i databasen på checkboksen og dropdown.
I min access database er formular sat til Yes/No



har prøvet med følgende i tilfoej.asp
<tr>
<td align="left" width="23%" valign="top"><font size="3"
face="Arial">Formular modtaget </font></td>
<td colspan="2" width="77%"><input type="checkbox" name="Formular"> </td>
</tr>

og følgende i send.asp
<tr>
<td align="left" width="23%" valign="top"><font size="3"
face="Arial">Formular modtaget </font></td>
<td colspan="2" width="77%"><input type="checkbox" name="Formular"> </td>
</tr>
Avatar billede martin29 Nybegynder
06. marts 2005 - 11:15 #4
Men vil godt have løst checkboks først.
Avatar billede moejensen Nybegynder
06. marts 2005 - 11:20 #5
vi bliver nok nød til at se din asp kode til at gemme i db'en for at kan hjælpe mig med den del.

med hensyn til det med at sende mail, så har jeg vidst misforstået dig lidt. Du kan sikket godt bruge det script TDC stiller til rådighed.
Avatar billede martin29 Nybegynder
06. marts 2005 - 11:30 #6
vi bliver nok nød til at se din asp kode til at gemme i db'en for at kan hjælpe mig med den del. ??

Er ikke helt med på hvad du mener? ;-)
Avatar billede moejensen Nybegynder
06. marts 2005 - 11:37 #7
når du submitter din form, sender du dataen til den side der hedder : send.asp

Det er koden på send.asp vi gerne vi lse - det er jo der du gemmer dataen i databasen.
Avatar billede martin29 Nybegynder
06. marts 2005 - 11:42 #8
ok øjeblik. :-)
Avatar billede martin29 Nybegynder
06. marts 2005 - 11:46 #9
<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("kundedatabase.mdb") & ";UID=admin;PWD=;"

function DKdato(datDato)
DKdato = day(datDato) & "/" & month(datDato) & "/" & year(datDato)
end function

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From kundedatabase"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

rs.AddNew
rs("Dato") = DKdato(now()) & " " & Time()

If not Request.Form("Bruger") = "" Then
rs("Bruger") = Request.form("Bruger")
End If
If not Request.Form("Email") = "" Then
rs("Email") = Request.form("Email")
End If
If not Request.Form("Navn") = "" Then
rs("Navn") = Request.form("Navn")
End If
If not Request.Form("Adresse") = "" Then
rs("Adresse") = Request.form("Adresse")
End If
If not Request.Form("Postnr") = "" Then
rs("Postnr") = Request.form("Postnr")
End If
If not Request.Form("By") = "" Then
rs("By") = Request.form("By")
End If
If not Request.Form("Land") = "" Then
rs("Land") = Request.form("Land")
End If
If not Request.Form("Tlf") = "" Then
rs("Tlf") = Request.form("Tlf")
End If
If not Request.Form("Antalvarer") = "" Then
rs("Antalvarer") = Request.form("Antalvarer")
End If


If not Request.Form("Varer") = "" Then
rs("Varer") = Request.form("Varer")
End If


value = request.form("Formular")

if value = "on" then
SQLvalue = true
else
SQlvalue = false
end if




If not Request.Form("Betaling") = "" Then
rs("Betaling") = Request.form("Betaling")
End If
If not Request.Form("Beløb") = "" Then
rs("Beløb") = Request.form("Beløb")
End If
If not Request.Form("Sendt") = "" Then
rs("Sendt") = Request.form("Sendt")
End If
If not Request.Form("Tt") = "" Then
rs("Tt") = Request.form("Tt")
End If
if Request.Form("Besked") <> "" Then
sComment = Request.Form("Besked")
sComment = Replace(sComment, "<", "&lt;")
rs("Besked") = sComment
end if
rs.Update

rs.Close
Set rs = Nothing

Conn.Close
set Conn = Nothing
%>

</p>
<html>

<head>
<meta name="robots" content="NOINDEX">
<META HTTP-EQUIV="Refresh" CONTENT="1;URL=tilfoej.asp">
<title>Gæstebog</title>
</head>

<body bgcolor="#FFFFFF" topmargin="10" leftmargin="0"
rightmargin="0">
<center>
  <FONT FACE="Arial" SIZE="+2">Tilføjet i Databasen</FONT>
</center>
</body>
</html>
Avatar billede moejensen Nybegynder
06. marts 2005 - 11:49 #10
du laver jo fint værdien af din checkbox om, men jeg akn ikke se at du sætter den ind i db'en

value = request.form("Formular")

if value = "on" then
SQLvalue = true
else
SQlvalue = false
end if

Prøv at sætte dette ind - ret lige formular til det dit feltnavn hedder:
rs("formular") = SQLvalue
Avatar billede martin29 Nybegynder
06. marts 2005 - 12:04 #11
Sådan her?
Er ikke helt med.


value = request.form("Formular")
rs("formular") = SQLvalue
if value = "on" then
SQLvalue = true
else
SQlvalue = false
end if
Avatar billede moejensen Nybegynder
06. marts 2005 - 12:09 #12
nej, den skal selvfølgelig være under, ellers har du jo ikke sat SQLvalue til noget.

value = request.form("Formular")
if value = "on" then
SQLvalue = true
else
SQlvalue = false
end if
rs("formular") = SQLvalue

er det et felt i din database der hedder formular der er af typen yes/no?
Avatar billede martin29 Nybegynder
06. marts 2005 - 12:17 #13
Yessss så kom der et hak i databasen. :-)
retter lige selv de andre checkboxes til.

skal så have hjælp til min dropdown.
Avatar billede moejensen Nybegynder
06. marts 2005 - 12:21 #14
du har ikke givet dem nogen værdi. Du skal skrive value="bla bla"

       
            <select name="Varer">
              <option value=""></option>             
              <option value="Kamera 5">kamera 5</option>
              <option value="Kamera 6">kamera 6</option>
              <option value="kamera 9.9">kamera 9.9</option>
              <option value="h&oslash;jtaler">h&oslash;jtaler</option>
              <option value="256 mb">256 mb</option>
              <option value="512 mb">512 mb</option>
              </select></td>
Avatar billede martin29 Nybegynder
06. marts 2005 - 12:25 #15
Der går kluder i send.asp når jeg tilføjer det på de andre..


value = request.form("Formular")
if value = "on" then
SQLvalue = true
else
SQlvalue = false
end if
rs("formular") = SQLvalue

value = request.form("Betaling")
if value = "on" then
SQLvalue = true
else
SQlvalue = false
end if
rs("Betaling") = SQLvalue

If not Request.Form("Beløb") = "" Then
rs("Beløb") = Request.form("Beløb")
End If

value = request.form("Sendt")
if value = "on" then
SQLvalue = true
else
SQlvalue = false
end if
rs("Sendt") = SQLvalue

If not Request.Form("Sendt") = "" Then
rs("Sendt") = Request.form("Sendt")
End If
Avatar billede moejensen Nybegynder
06. marts 2005 - 12:32 #16
du bliver nok nød til at forkalre hvad du mener med kludder
Avatar billede martin29 Nybegynder
06. marts 2005 - 12:42 #17
Hvis jeg i formularen i tilfoej.asp sætter et hak i checkbox for ("Formular") virker det ikke længere efter at jeg har rettet send.asp til ovenstående kode. Det virkede inden jeg tilføj de sidste 2 checkboxe i send.asp.
Avatar billede martin29 Nybegynder
06. marts 2005 - 12:43 #18
nååååå, vent lige...
Avatar billede martin29 Nybegynder
06. marts 2005 - 12:45 #19
Nej desværre troede at databasen var sat forkert.
Nej det virker ikke efter jeg har tilføjet de sidste 2 checkboxe i send.asp
Avatar billede moejensen Nybegynder
06. marts 2005 - 12:49 #20
kan jeg lige se hele koden til send.asp som den ser ud nu?
Avatar billede martin29 Nybegynder
06. marts 2005 - 12:50 #21
du har ikke givet dem nogen værdi. Du skal skrive value="bla bla"

Hvorfor kan jeg ikke give en værdi som hedder "kamera 5" er tvunget til at give værdi "kamera5". Der kommer fejl hvis jeg laver et mellemrum.


       
            <select name="Varer">
              <option value=""></option>             
              <option value="Kamera 5">kamera 5</option>
              <option value="Kamera 6">kamera 6</option>
              <option value="kamera 9.9">kamera 9.9</option>
              <option value="h&oslash;jtaler">h&oslash;jtaler</option>
              <option value="256 mb">256 mb</option>
              <option value="512 mb">512 mb</option>
              </select></td>
Avatar billede martin29 Nybegynder
06. marts 2005 - 12:51 #22
<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("kundedatabase.mdb") & ";UID=admin;PWD=;"

function DKdato(datDato)
DKdato = day(datDato) & "/" & month(datDato) & "/" & year(datDato)
end function

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From kundedatabase"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

rs.AddNew
rs("Dato") = DKdato(now()) & " " & Time()

If not Request.Form("Bruger") = "" Then
rs("Bruger") = Request.form("Bruger")
End If
If not Request.Form("Email") = "" Then
rs("Email") = Request.form("Email")
End If
If not Request.Form("Navn") = "" Then
rs("Navn") = Request.form("Navn")
End If
If not Request.Form("Adresse") = "" Then
rs("Adresse") = Request.form("Adresse")
End If
If not Request.Form("Postnr") = "" Then
rs("Postnr") = Request.form("Postnr")
End If
If not Request.Form("By") = "" Then
rs("By") = Request.form("By")
End If
If not Request.Form("Land") = "" Then
rs("Land") = Request.form("Land")
End If
If not Request.Form("Tlf") = "" Then
rs("Tlf") = Request.form("Tlf")
End If
If not Request.Form("Antalvarer") = "" Then
rs("Antalvarer") = Request.form("Antalvarer")
End If


If not Request.Form("Varer") = "" Then
rs("Varer") = Request.form("Varer")
End If


value = request.form("Formular")
if value = "on" then
SQLvalue = true
else
SQlvalue = false
end if
rs("formular") = SQLvalue

value = request.form("Betaling")
if value = "on" then
SQLvalue = true
else
SQlvalue = false
end if
rs("Betaling") = SQLvalue

If not Request.Form("Beløb") = "" Then
rs("Beløb") = Request.form("Beløb")
End If

value = request.form("Sendt")
if value = "on" then
SQLvalue = true
else
SQlvalue = false
end if
rs("Sendt") = SQLvalue

If not Request.Form("Sendt") = "" Then
rs("Sendt") = Request.form("Sendt")
End If
If not Request.Form("Tt") = "" Then
rs("Tt") = Request.form("Tt")
End If
if Request.Form("Besked") <> "" Then
sComment = Request.Form("Besked")
sComment = Replace(sComment, "<", "&lt;")
rs("Besked") = sComment
end if
rs.Update

rs.Close
Set rs = Nothing

Conn.Close
set Conn = Nothing
%>

</p>
<html>

<head>
<meta name="robots" content="NOINDEX">
<META HTTP-EQUIV="Refresh" CONTENT="1;URL=tilfoej.asp">
<title>Gæstebog</title>
</head>

<body bgcolor="#FFFFFF" topmargin="10" leftmargin="0"
rightmargin="0">
<center>
  <FONT FACE="Arial" SIZE="+2">Tilføjet i Databasen</FONT>
</center>
</body>
</html>
Avatar billede moejensen Nybegynder
06. marts 2005 - 12:58 #23
prøv lige det her i stedet. Du behøver ikke alle de it sætninger, hvis et felt er tomt, så bliver der bare ikke skrevet noget i feltet:

<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("kundedatabase.mdb") & ";UID=admin;PWD=;"

function DKdato(datDato)
DKdato = day(datDato) & "/" & month(datDato) & "/" & year(datDato)
end function

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From kundedatabase"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

rs.AddNew
rs("Dato") = DKdato(now()) & " " & Time()

rs("Bruger") = Request.form("Bruger")
rs("Email") = Request.form("Email")
rs("Navn") = Request.form("Navn")
rs("Adresse") = Request.form("Adresse")
rs("Postnr") = Request.form("Postnr")
rs("By") = Request.form("By")
rs("Land") = Request.form("Land")
rs("Tlf") = Request.form("Tlf")
rs("Antalvarer") = Request.form("Antalvarer")
rs("Varer") = Request.form("Varer")

if request.form("Formular") = "on" then
    rs("formular") = true
else
    rs("formular") = false
end if

if request.form("Betaling") = "on" then
    rs("Betaling") = true
else
    rs("Betaling") = false
end if

rs("Beløb") = Request.form("Beløb")

if request.form("Sendt") = "on" then
    rs("Sendt") = true
else
    rs("Sendt") = false
end if

rs("Tt") = Request.form("Tt")

sComment = Request.Form("Besked")
sComment = Replace(sComment, "<", "&lt;")
rs("Besked") = sComment

rs.Update

rs.Close
Set rs = Nothing

Conn.Close
set Conn = Nothing
%>

</p>
<html>

<head>
<meta name="robots" content="NOINDEX">
<META HTTP-EQUIV="Refresh" CONTENT="1;URL=tilfoej.asp">
<title>Gæstebog</title>
</head>

<body bgcolor="#FFFFFF" topmargin="10" leftmargin="0"
rightmargin="0">
<center>
  <FONT FACE="Arial" SIZE="+2">Tilføjet i Databasen</FONT>
</center>
</body>
</html>
Avatar billede martin29 Nybegynder
06. marts 2005 - 13:06 #24
Ked af at sige det, men nu er der slet ikke noget der virker. ;-)
Avatar billede martin29 Nybegynder
06. marts 2005 - 13:08 #25
Vil du have et link?
Avatar billede moejensen Nybegynder
06. marts 2005 - 13:11 #26
så prøv denne her:

<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("kundedatabase.mdb") & ";UID=admin;PWD=;"

function DKdato(datDato)
DKdato = day(datDato) & "/" & month(datDato) & "/" & year(datDato)
end function

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From kundedatabase"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

rs.AddNew
rs("Dato") = DKdato(now()) & " " & Time()

If not Request.Form("Bruger") = "" Then
rs("Bruger") = Request.form("Bruger")
End If
If not Request.Form("Email") = "" Then
rs("Email") = Request.form("Email")
End If
If not Request.Form("Navn") = "" Then
rs("Navn") = Request.form("Navn")
End If
If not Request.Form("Adresse") = "" Then
rs("Adresse") = Request.form("Adresse")
End If
If not Request.Form("Postnr") = "" Then
rs("Postnr") = Request.form("Postnr")
End If
If not Request.Form("By") = "" Then
rs("By") = Request.form("By")
End If
If not Request.Form("Land") = "" Then
rs("Land") = Request.form("Land")
End If
If not Request.Form("Tlf") = "" Then
rs("Tlf") = Request.form("Tlf")
End If
If not Request.Form("Antalvarer") = "" Then
rs("Antalvarer") = Request.form("Antalvarer")
End If


If not Request.Form("Varer") = "" Then
rs("Varer") = Request.form("Varer")
End If


value = request.form("Formular")
if value = "on" then
SQLvalue = true
else
SQlvalue = false
end if
rs("formular") = SQLvalue

value = request.form("Betaling")
if value = "on" then
SQLvalue = true
else
SQlvalue = false
end if
rs("Betaling") = SQLvalue

If not Request.Form("Beløb") = "" Then
rs("Beløb") = Request.form("Beløb")
End If

value = request.form("Sendt")
if value = "on" then
SQLvalue = true
else
SQlvalue = false
end if
rs("Sendt") = SQLvalue

If not Request.Form("Tt") = "" Then
rs("Tt") = Request.form("Tt")
End If
if Request.Form("Besked") <> "" Then
sComment = Request.Form("Besked")
sComment = Replace(sComment, "<", "&lt;")
rs("Besked") = sComment
end if
rs.Update

rs.Close
Set rs = Nothing

Conn.Close
set Conn = Nothing
%>

</p>
<html>

<head>
<meta name="robots" content="NOINDEX">
<META HTTP-EQUIV="Refresh" CONTENT="1;URL=tilfoej.asp">
<title>Gæstebog</title>
</head>

<body bgcolor="#FFFFFF" topmargin="10" leftmargin="0"
rightmargin="0">
<center>
  <FONT FACE="Arial" SIZE="+2">Tilføjet i Databasen</FONT>
</center>
</body>
</html>
Avatar billede martin29 Nybegynder
06. marts 2005 - 13:17 #27
virker ikke.
Kan tilføje email ca hver 2 gang. ellers melder den fejl. og fejl på alt andet.
Avatar billede moejensen Nybegynder
06. marts 2005 - 13:20 #28
det brude den ikke, det er jo den der virkede før, hvilken fejl får du?
Avatar billede nitram30 Nybegynder
06. marts 2005 - 13:50 #29
siden kan ikke vises.
mit bredbånd er nede lige nu så det hjælper ikke og sende dig et link lige nu.
Avatar billede martin29 Nybegynder
06. marts 2005 - 14:08 #30
Avatar billede moejensen Nybegynder
06. marts 2005 - 14:19 #31
har du sat skriverettigheder på din database?
Avatar billede moejensen Nybegynder
06. marts 2005 - 14:21 #32
prøv også at nøjes med at skrive dette i din connection string til databasen:

Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("kundedatabase.mdb")
Avatar billede martin29 Nybegynder
06. marts 2005 - 14:22 #33
der er sat skrive rettigheder på. ellers har jeg ikke kunnet tilføje de andre indæg.
Avatar billede martin29 Nybegynder
06. marts 2005 - 14:24 #34
så nu ser det ud til at virke.
tester lige
Avatar billede martin29 Nybegynder
06. marts 2005 - 14:27 #35
yess det virker..

Hvorfor kan jeg ikke give en værdi som hedder "kamera 5" er tvunget til at give værdi "kamera5". Der kommer fejl hvis jeg laver et mellemrum.


       
            <select name="Varer">
              <option value=""></option>             
              <option value="Kamera 5">kamera 5</option>
              <option value="Kamera 6">kamera 6</option>
              <option value="kamera 9.9">kamera 9.9</option>
              <option value="h&oslash;jtaler">h&oslash;jtaler</option>
              <option value="256 mb">256 mb</option>
              <option value="512 mb">512 mb</option>
              </select></td>
Avatar billede martin29 Nybegynder
06. marts 2005 - 14:28 #36
er det rettet?
Avatar billede moejensen Nybegynder
06. marts 2005 - 14:30 #37
det skulle jeg da mene du kunne, er dine felter erklæret som normale text felter i databasen?
Avatar billede martin29 Nybegynder
06. marts 2005 - 14:31 #38
yesss det virker sq også.....
Great...
Avatar billede moejensen Nybegynder
06. marts 2005 - 14:35 #39
det er godt at høre
Avatar billede martin29 Nybegynder
06. marts 2005 - 14:36 #40
hmm lige et spørgsmål til eksperten. :-)

Hvad er der af mulighed for at indtastede oplysninger kan sendes pr mail og lagres i db?

Vil du hjælpe mig med at lave en redigerings funktion, hvis jeg lige sætter de grundlæggende oplysninger sammen? vil nemlig godt efter et par dage kunne gå ind for at tjekke op på oplysningerne og sætte f.eks. flueben og tilføje bemærkninger.
Avatar billede moejensen Nybegynder
06. marts 2005 - 14:44 #41
hvor er det din side bliver hosted? Det virker næsten mystisk at de ikke har et email komponent, når de understøtter ASP
Avatar billede martin29 Nybegynder
06. marts 2005 - 14:47 #42
den bliver hostet på min egen server. Jeg har bare ikke kunnet finde ud af og få asp mail, jmail eller CDONTS tila at virke.
Avatar billede moejensen Nybegynder
06. marts 2005 - 14:47 #43
når du vi llave en redigeringsside, så gør du det på næsten samme måde. Prøv at se hvor langt du selv kan komme, og så lad et spg, hvis du får problemer.
Avatar billede moejensen Nybegynder
06. marts 2005 - 14:49 #44
okay, Jmail er ganske nemt at installere, det er bare næste næste næste hele vejen igennem.
Avatar billede martin29 Nybegynder
06. marts 2005 - 14:50 #45
OK men hvis jeg nu opretter et nyt spørgsmål vil du så guide mig igang..
For ærlig talt ved jeg ikke meget om ASP men har lavet en "lappeløsning" fra en gæstebog for at få dette til at virke. :-)
Avatar billede martin29 Nybegynder
06. marts 2005 - 14:51 #46
Det er måske fordi jeg bruger workgroupmail at noget går galt?
Kan da lige prøve igen her om lidt.
Avatar billede moejensen Nybegynder
06. marts 2005 - 14:53 #47
jeg skal nok prøve at hurde dig :-)

Det har intet at gøre med den mailserver der er installeret på serveren.
Avatar billede moejensen Nybegynder
06. marts 2005 - 14:55 #48
hvad hedder din smtp server?
hvilken mail skal mailen sendes fra?
Hvor skal den sendes til?
Hvad skal emnet være?
Avatar billede martin29 Nybegynder
06. marts 2005 - 15:01 #49
hvad hedder din smtp server? www.shopfloor.dk
hvilken mail skal mailen sendes fra? salg@shopfloor.dk
Hvor skal den sendes til? til dem i databasen fra formular og shopfloor@mail.dk
Hvad skal emnet være? formular sendt
Avatar billede moejensen Nybegynder
06. marts 2005 - 15:09 #50
Prøv det her. Hvis det fejler, så huske at skriv fejlbeskeden til mig. Det kræver at du har fået installeret JMail:

<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("kundedatabase.mdb") & ";UID=admin;PWD=;"

function DKdato(datDato)
DKdato = day(datDato) & "/" & month(datDato) & "/" & year(datDato)
end function

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From kundedatabase"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

rs.AddNew
rs("Dato") = DKdato(now()) & " " & Time()

If not Request.Form("Bruger") = "" Then
rs("Bruger") = Request.form("Bruger")
End If
If not Request.Form("Email") = "" Then
rs("Email") = Request.form("Email")
End If
If not Request.Form("Navn") = "" Then
rs("Navn") = Request.form("Navn")
End If
If not Request.Form("Adresse") = "" Then
rs("Adresse") = Request.form("Adresse")
End If
If not Request.Form("Postnr") = "" Then
rs("Postnr") = Request.form("Postnr")
End If
If not Request.Form("By") = "" Then
rs("By") = Request.form("By")
End If
If not Request.Form("Land") = "" Then
rs("Land") = Request.form("Land")
End If
If not Request.Form("Tlf") = "" Then
rs("Tlf") = Request.form("Tlf")
End If
If not Request.Form("Antalvarer") = "" Then
rs("Antalvarer") = Request.form("Antalvarer")
End If


If not Request.Form("Varer") = "" Then
rs("Varer") = Request.form("Varer")
End If


value = request.form("Formular")
if value = "on" then
SQLvalue = true
else
SQlvalue = false
end if
rs("formular") = SQLvalue

value = request.form("Betaling")
if value = "on" then
SQLvalue = true
else
SQlvalue = false
end if
rs("Betaling") = SQLvalue

If not Request.Form("Beløb") = "" Then
rs("Beløb") = Request.form("Beløb")
End If

value = request.form("Sendt")
if value = "on" then
SQLvalue = true
else
SQlvalue = false
end if
rs("Sendt") = SQLvalue

If not Request.Form("Tt") = "" Then
rs("Tt") = Request.form("Tt")
End If
if Request.Form("Besked") <> "" Then
sComment = Request.Form("Besked")
sComment = Replace(sComment, "<", "&lt;")
rs("Besked") = sComment
end if
rs.Update

rs.Close
Set rs = Nothing

Conn.Close
set Conn = Nothing

' Sender mail
strBody = strBody & "Bruger: " & Request.form("Bruger") & vbCrLf
strBody = strBody & "Email: " & Request.form("Email") & vbCrLf
strBody = strBody & "Navn: " & Request.Form("Navn") & vbCrLf
strBody = strBody & "Adresse: " & Request.Form("Adresse") & vbCrLf
strBody = strBody & "Postnr: " & Request.Form("Postnr") & vbCrLf
strBody = strBody & "By: " & Request.Form("By") & vbCrLf
strBody = strBody & "Land: " & Request.Form("Land") & vbCrLf
strBody = strBody & "Tlf: " & Request.Form("Tlf") & vbCrLf
strBody = strBody & "Antal varer: " & Request.Form("Antalvarer") & vbCrLf
strBody = strBody & "Varer: " & Request.Form("Varer") & vbCrLf
strBody = strBody & "Formular: " & Request.Form("Formular") & vbCrLf
strBody = strBody & "Betaling: " & Request.Form("Betaling") & vbCrLf
strBody = strBody & "Beløb: " & Request.Form("Beløb") & vbCrLf
strBody = strBody & "Sendt: " & Request.Form("Sendt") & vbCrLf
strBody = strBody & "Tt: " & Request.Form("Tt") & vbCrLf
strBody = strBody & "Besked: " & Request.Form("Besked") & vbCrLf

Set JMail = Server.CreateObject( "JMail.Speedmailer" )
JMail.SendMail "salg@shopfloor.dk", "shopfloor@mail.dk, "& Request.form("Email")&"", "formular sendt", strBody, "www.shopfloor.dk"
Set JMail = Nothing
%>

</p>
<html>

<head>
<meta name="robots" content="NOINDEX">
<META HTTP-EQUIV="Refresh" CONTENT="1;URL=tilfoej.asp">
<title>Gæstebog</title>
</head>

<body bgcolor="#FFFFFF" topmargin="10" leftmargin="0"
rightmargin="0">
<center>
  <FONT FACE="Arial" SIZE="+2">Tilføjet i Databasen</FONT>
</center>
</body>
</html>
Avatar billede martin29 Nybegynder
06. marts 2005 - 15:15 #51
OK TAK for hjælpen.

skal jeg oprette et nyt spørgsmål for at få hjælp til redigering i databasen. Ønskar at se alle info på rediger siden som på tilføj.asp

Smider lige dine 200 Point så Du har fået dem sikkert i hus. ;-)
Avatar billede moejensen Nybegynder
06. marts 2005 - 15:22 #52
det du skal lave for at kunne redigere er en side, hvor du skriver recordsne fra databasen ud, sådan at du kan vælge den du vil redigere. det gør du således

Set Rs = Conn.Execute("SELECT id,brugernavn FROM kundedatabase")
do until rs.eof or rs.bof
    response.write(""&rs("brugernavn")&"    <a href=""edit.asp?id="&rs("id")&""">rediger</a><br>")
    rs.movenext
loop

Du må selv lige søre for at gøre html koden lækker
Avatar billede martin29 Nybegynder
06. marts 2005 - 15:33 #53
ok trækker nok senere på dig igen i aften hvis det går helt galt. :-)
tak for hjælpen.
Avatar billede moejensen Nybegynder
06. marts 2005 - 15:49 #54
det var så lidt, men virker det med mailen?
Avatar billede martin29 Nybegynder
06. marts 2005 - 16:11 #55
skal lige have install jmail først.. knokler på at få de formularer færdige.
Melder tilbage..
Avatar billede moejensen Nybegynder
06. marts 2005 - 16:17 #56
ok
Avatar billede martin29 Nybegynder
06. marts 2005 - 16:21 #57
kan du se hvad der går galt her?
Får fejl at siden ikke kan vises.

<% response.buffer = true %>

<html>
<head>
<meta http-equiv="Pragma" content="no-cache">
<title>Søg</title>
<style type="text/css">
<!--
.style3 {    font-size: 24px;
    font-family: Verdana, Arial, Helvetica, sans-serif;
    font-weight: bold;
}
-->
</style>
</head>

<body>
<br>
<BR>
<BR>


<div id="Layer1" class="style3" style="position:absolute; left:276px; top:22px; width:276px; height:32px; z-index:8">Kunde Database</div>
<p>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("kundedatabase.mdb")
strSQL = "Select * From kundedatabase ORDER BY ID DESC"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write "<font face=""Arial"" size=""2"">Databasen er tom.</font>"
else
Do Until rs.EOF
%>
</p>


<table width="704" cellpadding="0" cellspacing="0" border="1">
  <tr>
    <th width="175">Qxl Brugernavn</th>
    <th width="157">Navn</th>
    <th width="228">E-mail</th>
    <th width="116">Telefon</th>
  </tr>
</table>


<table width="704" cellpadding="0" cellspacing="0" border="1">
<tr>
<td width="175" align=center bgcolor=#C0C0C0><%=RS("Qxl")%></td>
<td width="157" align=center bgcolor=#C0C0C0><%=RS("Navn")%></td>
<td width="228" align=center bgcolor=#C0C0C0><%=RS("Email")%></td>
<td width="116" align=center bgcolor=#C0C0C0><%=RS("Tlf")%></td>
</tr>
</table>

 
<%RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing%>

</body>
</html>
Avatar billede moejensen Nybegynder
06. marts 2005 - 16:35 #58
det kan jeg sikkert godt, men du bliver nød til at skrive hvilken fejl du får, ellers bliver det svært.
Avatar billede moejensen Nybegynder
06. marts 2005 - 16:36 #59
men umiddelbart skal du flytte

<table width="704" cellpadding="0" cellspacing="0" border="1">
  <tr>
    <th width="175">Qxl Brugernavn</th>
    <th width="157">Navn</th>
    <th width="228">E-mail</th>
    <th width="116">Telefon</th>
  </tr>
</table>

uden for do until rs.eof
Avatar billede martin29 Nybegynder
06. marts 2005 - 16:36 #60
siden kan ikke vises.

tror det er noget her der er galt.

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("kundedatabase.mdb")
strSQL = "Select * From kundedatabase ORDER BY ID DESC"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write "<font face=""Arial"" size=""2"">Databasen er tom.</font>"
else
Do Until rs.EOF
Avatar billede moejensen Nybegynder
06. marts 2005 - 16:41 #61
hvad hedder siden, så kan jeg selv se med?
Avatar billede martin29 Nybegynder
06. marts 2005 - 16:50 #62
http://www.shopfloor.dk/kartotek/soeg.asp

nogle gange virker det og andre ikke.. ved at taste F5.
har slettet min internet temp.
Avatar billede moejensen Nybegynder
06. marts 2005 - 16:58 #63
prøv at åben databasen i access og komprimer og reparer den.

Gøres under funktioner --> databasefunktioner --> kompromer og reparer.
Avatar billede martin29 Nybegynder
06. marts 2005 - 17:00 #64
har jeg lige netop gjort og lavet skrive rettighed igen
Avatar billede moejensen Nybegynder
06. marts 2005 - 17:12 #65
det er en rigtig skod fejl, for det kommer af at Access ikke er den bedste base at arbejde i.

Det er en fejl der pludselig kan forsinde

du kan prøve at sætte uid=;pw=;" på din conn string

Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("kundedatabase.mdb") & ";UID=admin;PWD=;"
Avatar billede martin29 Nybegynder
06. marts 2005 - 17:19 #66
Det virker..
Mange Tak for hjælpen..

Vil det sige ACCESS = enten virker det eller ikke?
Avatar billede moejensen Nybegynder
06. marts 2005 - 17:21 #67
ja, nogle gange er der lidt problemer med den, men nu skulle den gerne virke. husk at rette det i alle dine filer.
Avatar billede martin29 Nybegynder
09. marts 2005 - 21:08 #68
skal gerne lige bruge din hjælp igen har en masse kode der lige skal ses efter for fejl i forbindelse med rette funktionen.
Avatar billede martin29 Nybegynder
09. marts 2005 - 21:11 #69
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