Avatar billede loudrup Nybegynder
20. marts 2004 - 16:26 Der er 44 kommentarer og
2 løsninger

Hente udfyldte felter over på en anden side

Jeg er lidt på herrens mark, og helt nybegynder når det kommer til asp.
Jeg har lavet en formular, og det er meningen at når brugeren sender formularen, så skal han se en side med de oplysninger som han har udfyldt i formularen. Dvs. at jeg skal bruge noget "response.request form" eller noget i den retning for at hente variablerne over på den side som brugeren umiddelbart vil blive omdirigeret til. Det er meningen at denne formular skal udvides, men jeg starter her for ligesom at forstå hvad der foregår.
Yderligere er det meningen at formularen med alle oplysningerne skal sendes til en modtage adresse.
Er der nogen der kan hjælpe mig med dette?

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>test</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>

<form name="form1" method="post" action="http://scripts.wannafind.dk/form2mail.asp">

  <table width="90%" height="200" border="1" cellpadding="2" bordercolorlight="#C0C0C0">
    <tr>
   
<td>Cpr.nr.: </td><td bgcolor="silver">
      <input type="text" size="11" name="cprnr">*</td>
      </tr>
   
    <tr>
<td>Efternavn: </td><td bgcolor="silver">
    <input type="text" size="35" name="efternavn">*</td>
       
    </tr>
    <tr>
<td>Fornavn: </td><td bgcolor="silver">
    <input type="text" size="35" name="fornavn">*</td>
       
    </tr>
    <tr>
<td>Adresse:</td> <td bgcolor="silver">
    <input type="text" size="35" name="adresse"> *</td>
     
    </tr>
    <tr>
<td>Postnr: </td><td bgcolor="silver">
    <input type="text" size="10" maxlenght="10" name="postnr">
    * By:       
    <input type="text" size="25" name="by"> *</td>
   
    </tr>
    <tr>
<td>Firma: </td><td bgcolor="silver">   
    <input type="text" size="35" name="firma"></td>
    </tr>
    <tr>
<td height="29">Telefon: </td><td bgcolor="silver" height="29">
    Privat <input type="text" size="12" name="telfpriv">
    Firma  <input type="text" size="12" name="telffirma"></td>
   
    </tr>
    <tr>
      <td height="2">E-mail: </td><td bgcolor="silver" height="2">
      <input type="text" size="35" name="Email">
        *</td>
    </tr>
  </table>
    <tr>    <p>
      <input type="submit" value="Send tilmelding"> <input type="reset" value="Nulstil tilmelding" ></p>
    </tr>
   
    <INPUT type="hidden" name="recipient" value="mette@xxxxxxxx.dk">
    <INPUT type="hidden" name="fromaddress" value="Email">
    <INPUT type="hidden" name="subject" value="Fra xxxxxx hjemmeside">
    <input type="hidden" name="redirect" value="C/testmappe/tak_for_tilmeldingen.htm">
    <INPUT type="hidden" name="orderby" value="cprnr,efternavn,fornavn,adresse,postnr,by,firma,telfpriv,telffirma,Email">
</form>
</body>
</html>
Avatar billede Meggel Novice
20. marts 2004 - 18:31 #1
for at hente en for på den nye siden..

skal du skriv

<% response.write request.form("formnavn") %>

eller hvis du skal skriev noget inden den skrive formnavn fx hvis det er hans navn

<% response.write "Navn: "&request.form("formnavn")&"" %>
Avatar billede Meggel Novice
20. marts 2004 - 18:42 #2
opret.asp -->

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>test</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>

<form name="form1" method="post" action="visinfo.asp">

  <table width="90%" height="245" border="1" cellpadding="2" bordercolorlight="#C0C0C0">
    <tr>
   
<td>Cpr.nr.: </td><td bgcolor="silver">
      <input type="text" size="11" name="cprnr">*</td>
      </tr>
   
    <tr>
<td>Efternavn: </td><td bgcolor="silver">
    <input type="text" size="35" name="efternavn">*</td>
       
    </tr>
    <tr>
<td>Fornavn: </td><td bgcolor="silver">
    <input type="text" size="35" name="fornavn">*</td>
       
    </tr>
    <tr>
<td>Adresse:</td> <td bgcolor="silver">
    <input type="text" size="35" name="adresse"> *</td>
     
    </tr>
    <tr>
<td>Postnr: </td><td bgcolor="silver">
    <input type="text" size="10" maxlenght="10" name="postnr">
    * By:       
    <input type="text" size="25" name="by"> *</td>
   
    </tr>
    <tr>
<td>Firma: </td><td bgcolor="silver">   
    <input type="text" size="35" name="firma"></td>
    </tr>
    <tr>
<td height="29">Telefon: </td><td bgcolor="silver" height="29">
    Privat <input type="text" size="12" name="telfpriv">
    Firma  <input type="text" size="12" name="telffirma"></td>
   
    </tr>
    <tr>
      <td height="28">E-mail: </td><td bgcolor="silver" height="28">
      <input type="text" size="35" name="Email">
        *</td>
    </tr>
  </table>
    <tr>    <p>
      <input type="submit" value="Send tilmelding"> <input type="reset" value="Nulstil tilmelding" ></p>
    </tr>
   
    <INPUT type="hidden" name="recipient" value="mette@xxxxxxxx.dk">
    <INPUT type="hidden" name="fromaddress" value="Email">
    <INPUT type="hidden" name="subject" value="Fra xxxxxx hjemmeside">
    <input type="hidden" name="redirect" value="C/testmappe/tak_for_tilmeldingen.htm">
    <INPUT type="hidden" name="orderby" value="cprnr,efternavn,fornavn,adresse,postnr,by,firma,telfpriv,telffirma,Email">
</form>
</body>
</html>



visinfo.asp -->


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<table width="90%" height="245" border="1" cellpadding="2" bordercolorlight="#C0C0C0">
    <tr>
   
<td>Cpr.nr.: </td><td bgcolor="silver">
      <% response.Write request.Form("cprnr") %></td>
      </tr>
   
    <tr>
<td>Efternavn: </td><td bgcolor="silver">
<% response.Write request.Form("efternavn") %></td>
       
    </tr>
    <tr>
<td>Fornavn: </td><td bgcolor="silver">
<% response.Write request.Form("fornavn") %></td>
       
    </tr>
    <tr>
<td>Adresse:</td> <td bgcolor="silver">
<% response.Write request.Form("adresse") %></td>
     
    </tr>
    <tr>
<td>Postnr: </td><td bgcolor="silver">
<% response.Write request.Form("postnr") %>
    By:
    <% response.Write request.Form("by") %>      </td>
   
    </tr>
    <tr>
<td>Firma: </td><td bgcolor="silver">
<% response.Write request.Form("firma") %>    </td>
    </tr>
    <tr>
<td height="29">Telefon: </td><td bgcolor="silver" height="29">
    Privat <% response.Write request.Form("telfpriv") %>
    Firma  <% response.Write request.Form("telffirma") %></td>
   
    </tr>
    <tr>
      <td height="28">E-mail: </td><td bgcolor="silver" height="28">
      <% response.Write request.Form("Email") %>
    </td>
    </tr>
  </table>

</body>
</html>


nu skriver den det da på den anden side.. hva mener du med den skal sende alle info til modtager addresse ?
Avatar billede deeflate Nybegynder
20. marts 2004 - 18:58 #3
Kan se, at du før kørte over til Wannafinds form2mail.asp - går ud fra, at det så er der du er hostet.
I så fald se her: http://www.wannafind.dk/support/more.asp?id=14

Der er en vejledning i, hvordan du bruger ASPMail
Avatar billede loudrup Nybegynder
20. marts 2004 - 18:59 #4
Det jeg mener er, at samtlige oplysninger skal sendes til mig, samtidig med at brugeren skal se at de oplysninger som han har indtastet er korrekte. Det er derfor at han skal modtage en side med diverse oplysninger.
Avatar billede deeflate Nybegynder
20. marts 2004 - 19:00 #5
Her er deres eksempel på JMail: http://www.wannafind.dk/support/more.asp?id=19

Du bygger så mailens indhold op i en variabel ud fra de informationer, du har modtaget fra formen, og sætter msg.Body til den variabel.

Så simpelt er det :)
Avatar billede loudrup Nybegynder
20. marts 2004 - 19:08 #6
Hvordan bygger jeg indholdet op i en variabel?
Avatar billede Meggel Novice
20. marts 2004 - 19:12 #7
så ret visinfo.asp til


<%
        set msg = Server.CreateOBject( "JMail.Message" )
        msg.Logging = true
        msg.silent = true
        msg.From = "Den mail som det skal sende fra."
        msg.FromName = "Teflonshop"
        msg.AddRecipient "Mailen som sendes til"
        msg.Subject = "Emne"
        msg body = "Cpr.nr.: "&response.Write request.Form("cprnr")&vbCrlf&"Efternavn: "&response.Write request.Form("efternavn")&vbCrlf&"fornavn: "&response.Write request.Form("fornavn")&vbCrlf&"adresse: "&response.Write request.Form("adresse")&vbCrlf&"postnr: "&response.Write request.Form("postnr")&vbCrlf&"by: "&response.Write request.Form("by")&vbCrlf&"firma: "&response.Write request.Form("firma")&vbCrlf&"telfpriv: "&response.Write request.Form("telfpriv")&vbCrlf&"telffirma: "&response.Write request.Form("telffirma")&vbCrlf&"Email: "&response.Write request.Form("Email")&vbCrlf&""   
        if not msg.Send("smtp.mail.dk" ) then
            Response.write "<pre>" & msg.log & "</pre>"
        end if
response.Redirect("default.asp?id=send")
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<table width="90%" height="245" border="1" cellpadding="2" bordercolorlight="#C0C0C0">
    <tr>
   
<td>Cpr.nr.: </td><td bgcolor="silver">
      <% response.Write request.Form("cprnr") %></td>
      </tr>
   
    <tr>
<td>Efternavn: </td><td bgcolor="silver">
<% response.Write request.Form("efternavn") %></td>
       
    </tr>
    <tr>
<td>Fornavn: </td><td bgcolor="silver">
<% response.Write request.Form("fornavn") %></td>
       
    </tr>
    <tr>
<td>Adresse:</td> <td bgcolor="silver">
<% response.Write request.Form("adresse") %></td>
     
    </tr>
    <tr>
<td>Postnr: </td><td bgcolor="silver">
<% response.Write request.Form("postnr") %>
    By:
    <% response.Write request.Form("by") %>      </td>
   
    </tr>
    <tr>
<td>Firma: </td><td bgcolor="silver">
<% response.Write request.Form("firma") %>    </td>
    </tr>
    <tr>
<td height="29">Telefon: </td><td bgcolor="silver" height="29">
    Privat <% response.Write request.Form("telfpriv") %>
    Firma  <% response.Write request.Form("telffirma") %></td>
   
    </tr>
    <tr>
      <td height="28">E-mail: </td><td bgcolor="silver" height="28">
      <% response.Write request.Form("Email") %>
    </td>
    </tr>
  </table>

</body>
</html>
Avatar billede Meggel Novice
20. marts 2004 - 19:15 #8
<%
        set msg = Server.CreateOBject( "JMail.Message" )
        msg.Logging = true
        msg.silent = true
        msg.From = "Den mail som det skal sende fra."
        msg.FromName = "Teflonshop"
        msg.AddRecipient "Mailen som sendes til"
        msg.Subject = "Emne"
        msg body = "Cpr.nr.: "&response.Write request.Form("cprnr")&vbCrlf&"Efternavn: "&response.Write request.Form("efternavn")&vbCrlf&"fornavn: "&response.Write request.Form("fornavn")&vbCrlf&"adresse: "&response.Write request.Form("adresse")&vbCrlf&"postnr: "&response.Write request.Form("postnr")&vbCrlf&"by: "&response.Write request.Form("by")&vbCrlf&"firma: "&response.Write request.Form("firma")&vbCrlf&"telfpriv: "&response.Write request.Form("telfpriv")&vbCrlf&"telffirma: "&response.Write request.Form("telffirma")&vbCrlf&"Email: "&response.Write request.Form("Email")&vbCrlf&""

 
        if not msg.Send("smtp.etellerandet.dk" ) then
            Response.write "<pre>" & msg.log & "</pre>"
        end if
response.Redirect("default.asp?id=send")
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<table width="90%" height="245" border="1" cellpadding="2" bordercolorlight="#C0C0C0">
    <tr>
   
<td>Cpr.nr.: </td><td bgcolor="silver">
      <% response.Write request.Form("cprnr") %></td>
      </tr>
   
    <tr>
<td>Efternavn: </td><td bgcolor="silver">
<% response.Write request.Form("efternavn") %></td>
       
    </tr>
    <tr>
<td>Fornavn: </td><td bgcolor="silver">
<% response.Write request.Form("fornavn") %></td>
       
    </tr>
    <tr>
<td>Adresse:</td> <td bgcolor="silver">
<% response.Write request.Form("adresse") %></td>
     
    </tr>
    <tr>
<td>Postnr: </td><td bgcolor="silver">
<% response.Write request.Form("postnr") %>
    By:
    <% response.Write request.Form("by") %>      </td>
   
    </tr>
    <tr>
<td>Firma: </td><td bgcolor="silver">
<% response.Write request.Form("firma") %>    </td>
    </tr>
    <tr>
<td height="29">Telefon: </td><td bgcolor="silver" height="29">
    Privat <% response.Write request.Form("telfpriv") %>
    Firma  <% response.Write request.Form("telffirma") %></td>
   
    </tr>
    <tr>
      <td height="28">E-mail: </td><td bgcolor="silver" height="28">
      <% response.Write request.Form("Email") %>
    </td>
    </tr>
  </table>

</body>
</html>
Avatar billede deeflate Nybegynder
20. marts 2004 - 19:20 #9
F.eks.

strBodyMessage = "Fornavn : " & request.form("fornavn") & "<br />"
strBodyMessage = strBodyMessage & "Efternavn : " & request.form("efternavn") & "<br />"
strBodyMessage = strBodyMessage & "CPRnr.: : " & request.form("cprnr") & "<br />"

osv

og så når du når dertil:

msg.body = strBodyMessage

Du kan også gøre det som fruth foreslår, men husk at rette msg body til msg.body
- jeg synes bare, at det her er lidt mere overskueligt.
Avatar billede Meggel Novice
20. marts 2004 - 19:22 #10
men husk at installer jmail første.. hvis du har din egen webserver.. ellers vil det her aldrig komme til at virke :D
Avatar billede Meggel Novice
20. marts 2004 - 19:23 #11
det var lige en tryk fejl det med msg body self skal det være msg.body
Avatar billede loudrup Nybegynder
20. marts 2004 - 19:29 #12
fruth, du siger at jeg skal ændre visinfo til den nye kode, men hvad er så den anden kode som du har sendt lige efter? er det så den første side altså tilmeldingssiden.
Avatar billede Meggel Novice
20. marts 2004 - 19:32 #13
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>test</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>

<form name="form1" method="post" action="visinfo.asp">

  <table width="90%" height="245" border="1" cellpadding="2" bordercolorlight="#C0C0C0">
    <tr>
   
<td>Cpr.nr.: </td><td bgcolor="silver">
      <input type="text" size="11" name="cprnr">*</td>
      </tr>
   
    <tr>
<td>Efternavn: </td><td bgcolor="silver">
    <input type="text" size="35" name="efternavn">*</td>
       
    </tr>
    <tr>
<td>Fornavn: </td><td bgcolor="silver">
    <input type="text" size="35" name="fornavn">*</td>
       
    </tr>
    <tr>
<td>Adresse:</td> <td bgcolor="silver">
    <input type="text" size="35" name="adresse"> *</td>
     
    </tr>
    <tr>
<td>Postnr: </td><td bgcolor="silver">
    <input type="text" size="10" maxlenght="10" name="postnr">
    * By:       
    <input type="text" size="25" name="by"> *</td>
   
    </tr>
    <tr>
<td>Firma: </td><td bgcolor="silver">   
    <input type="text" size="35" name="firma"></td>
    </tr>
    <tr>
<td height="29">Telefon: </td><td bgcolor="silver" height="29">
    Privat <input type="text" size="12" name="telfpriv">
    Firma  <input type="text" size="12" name="telffirma"></td>
   
    </tr>
    <tr>
      <td height="28">E-mail: </td><td bgcolor="silver" height="28">
      <input type="text" size="35" name="Email">
        *</td>
    </tr>
  </table>
    <tr>    <p>
      <input type="submit" value="Send tilmelding"> <input type="reset" value="Nulstil tilmelding" ></p>
    </tr>
   
    <INPUT type="hidden" name="recipient" value="mette@xxxxxxxx.dk">
    <INPUT type="hidden" name="fromaddress" value="Email">
    <INPUT type="hidden" name="subject" value="Fra xxxxxx hjemmeside">
    <input type="hidden" name="redirect" value="C/testmappe/tak_for_tilmeldingen.htm">
    <INPUT type="hidden" name="orderby" value="cprnr,efternavn,fornavn,adresse,postnr,by,firma,telfpriv,telffirma,Email">
</form>
</body>
</html>


den side du skrive tingen ind på altså telmeldingssiden..
Avatar billede Meggel Novice
20. marts 2004 - 19:32 #14
det her er så filen visinfo.asp som også sender en mail.


<%
        set msg = Server.CreateOBject( "JMail.Message" )
        msg.Logging = true
        msg.silent = true
        msg.From = "Den mail som det skal sende fra."
        msg.FromName = "Teflonshop"
        msg.AddRecipient "Mailen som sendes til"
        msg.Subject = "Emne"
        msg.body = "Cpr.nr.: "&response.Write request.Form("cprnr")&vbCrlf&"Efternavn: "&response.Write request.Form("efternavn")&vbCrlf&"fornavn: "&response.Write request.Form("fornavn")&vbCrlf&"adresse: "&response.Write request.Form("adresse")&vbCrlf&"postnr: "&response.Write request.Form("postnr")&vbCrlf&"by: "&response.Write request.Form("by")&vbCrlf&"firma: "&response.Write request.Form("firma")&vbCrlf&"telfpriv: "&response.Write request.Form("telfpriv")&vbCrlf&"telffirma: "&response.Write request.Form("telffirma")&vbCrlf&"Email: "&response.Write request.Form("Email")&vbCrlf&""

 
        if not msg.Send("smtp.etellerandet.dk" ) then
            Response.write "<pre>" & msg.log & "</pre>"
        end if
response.Redirect("default.asp?id=send")
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<table width="90%" height="245" border="1" cellpadding="2" bordercolorlight="#C0C0C0">
    <tr>
   
<td>Cpr.nr.: </td><td bgcolor="silver">
      <% response.Write request.Form("cprnr") %></td>
      </tr>
   
    <tr>
<td>Efternavn: </td><td bgcolor="silver">
<% response.Write request.Form("efternavn") %></td>
       
    </tr>
    <tr>
<td>Fornavn: </td><td bgcolor="silver">
<% response.Write request.Form("fornavn") %></td>
       
    </tr>
    <tr>
<td>Adresse:</td> <td bgcolor="silver">
<% response.Write request.Form("adresse") %></td>
     
    </tr>
    <tr>
<td>Postnr: </td><td bgcolor="silver">
<% response.Write request.Form("postnr") %>
    By:
    <% response.Write request.Form("by") %>      </td>
   
    </tr>
    <tr>
<td>Firma: </td><td bgcolor="silver">
<% response.Write request.Form("firma") %>    </td>
    </tr>
    <tr>
<td height="29">Telefon: </td><td bgcolor="silver" height="29">
    Privat <% response.Write request.Form("telfpriv") %>
    Firma  <% response.Write request.Form("telffirma") %></td>
   
    </tr>
    <tr>
      <td height="28">E-mail: </td><td bgcolor="silver" height="28">
      <% response.Write request.Form("Email") %>
    </td>
    </tr>
  </table>

</body>
</html>
Avatar billede deeflate Nybegynder
20. marts 2004 - 19:39 #15
Hvis du er hostet hos wannafind skal du rette det øverste af visinfo.asp til efter wannafinds eksempel, som jeg linkede til.
Så kører det forhåbentlig som det skal ;)
Avatar billede loudrup Nybegynder
20. marts 2004 - 19:42 #16
jeg får følgende fejlmeddelse

Tekniske oplysninger (for supportteknikere)

Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0401)
Slut på sætning var ventet
/testmappe/visinfo.asp, line 9, column 38
msg.body = "Cpr.nr.: "&response.Write request.Form("cprnr")&vbCrlf&"Efternavn: "&response.Write request.Form("efternavn")&vbCrlf&"fornavn: "&response.Write request.Form("fornavn")&vbCrlf&"adresse: "&response.Write request.Form("adresse")&vbCrlf&"postnr: "&response.Write request.Form("postnr")&vbCrlf&"by: "&response.Write request.Form("by")&vbCrlf&"firma: "&response.Write request.Form("firma")&vbCrlf&"telfpriv: "&response.Write request.Form("telfpriv")&vbCrlf&"telffirma: "&response.Write request.Form("telffirma")&vbCrlf&"Email: "&response.Write request.Form("Email")&vbCrlf&""
-------------------------------------^


Browsertype:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; Hotbar 4.4.2.0)

Side:
POST 315 bytes to /testmappe/visinfo.asp

POST Data:
cprnr=dsfdgdsg&efternavn=&fornavn=&adresse=&postnr=&by=&firma=&telfpriv=&telffirma=&Email=&recipient=mette@xxxxxxxx.dk&fromaddress=Email&subject=Fra+xxxxxx+hjemmeside&redirect=C%2Ftestmappe%2Ftak_for_ . . .

Klokkeslæt:
20. marts 2004, 19:40:05


Yderligere oplysninger:
Microsoft Support
Avatar billede Meggel Novice
20. marts 2004 - 19:52 #17
<%
        set msg = Server.CreateOBject( "JMail.Message" )
        msg.Logging = true
        msg.silent = true
        msg.From = "test@c.dk"
        msg.FromName = "test"
        msg.AddRecipient "fruth@c.dk"
        msg.Subject = "Emne"   
        strBodyMessage = strBodyMessage & "CPRnr.: " & request.form("cprnr") & "<br />"
        strBodyMessage = "Fornavn : " & request.form("fornavn") & "<br />"
        strBodyMessage = strBodyMessage & "Efternavn: " & request.form("efternavn") & "<br />"
        strBodyMessage = strBodyMessage & "Fornacn: "& request.form("fornavn") & "<br />"
        strBodyMessage = strBodyMessage & "adresse: "& request.form("adresse") & "<br />"
        strBodyMessage = strBodyMessage & "postnr: "& request.form("postnr") & ""
        strBodyMessage = strBodyMessage & "by: "& request.form("by") & "<br />"
        strBodyMessage = strBodyMessage & "firma: "& request.form("firma") & "<br />"
        strBodyMessage = strBodyMessage & "telfpriv: "& request.form("telfpriv") & "<br />"
        strBodyMessage = strBodyMessage & "telffirma: "& request.form("telffirma") & "<br />"
        strBodyMessage = strBodyMessage & "Email: "& request.form("Email") & "<br />"
        msg.body = strBodyMessage
     
        if not msg.Send("smtp.mail.dk" ) then
            Response.write "<pre>" & msg.log & "</pre>"
        end if
response.Redirect("default.asp?id=send")
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<table width="90%" height="245" border="1" cellpadding="2" bordercolorlight="#C0C0C0">
    <tr>
   
<td>Cpr.nr.: </td><td bgcolor="silver">
      <% response.Write request.Form("cprnr") %></td>
      </tr>
   
    <tr>
<td>Efternavn: </td><td bgcolor="silver">
<% response.Write request.Form("efternavn") %></td>
       
    </tr>
    <tr>
<td>Fornavn: </td><td bgcolor="silver">
<% response.Write request.Form("fornavn") %></td>
       
    </tr>
    <tr>
<td>Adresse:</td> <td bgcolor="silver">
<% response.Write request.Form("adresse") %></td>
     
    </tr>
    <tr>
<td>Postnr: </td><td bgcolor="silver">
<% response.Write request.Form("postnr") %>
    By:
    <% response.Write request.Form("by") %>      </td>
   
    </tr>
    <tr>
<td>Firma: </td><td bgcolor="silver">
<% response.Write request.Form("firma") %>    </td>
    </tr>
    <tr>
<td height="29">Telefon: </td><td bgcolor="silver" height="29">
    Privat <% response.Write request.Form("telfpriv") %>
    Firma  <% response.Write request.Form("telffirma") %></td>
   
    </tr>
    <tr>
      <td height="28">E-mail: </td><td bgcolor="silver" height="28">
      <% response.Write request.Form("Email") %>
    </td>
    </tr>
  </table>

</body>
</html>


den virker
Avatar billede Meggel Novice
20. marts 2004 - 19:53 #18
<%
        set msg = Server.CreateOBject( "JMail.Message" )
        msg.Logging = true
        msg.silent = true
        msg.From = "test@c.dk"
        msg.FromName = "test"
        msg.AddRecipient "fruth@c.dk"
        msg.Subject = "Emne"   
        strBodyMessage = strBodyMessage & "CPRnr.: " & request.form("cprnr") & "<br />"
        strBodyMessage = "Fornavn : " & request.form("fornavn") & "<br />"
        strBodyMessage = strBodyMessage & "Efternavn: " & request.form("efternavn") & "<br />"
        strBodyMessage = strBodyMessage & "Fornacn: "& request.form("fornavn") & "<br />"
        strBodyMessage = strBodyMessage & "adresse: "& request.form("adresse") & "<br />"
        strBodyMessage = strBodyMessage & "postnr: "& request.form("postnr") & ""
        strBodyMessage = strBodyMessage & "by: "& request.form("by") & "<br />"
        strBodyMessage = strBodyMessage & "firma: "& request.form("firma") & "<br />"
        strBodyMessage = strBodyMessage & "telfpriv: "& request.form("telfpriv") & "<br />"
        strBodyMessage = strBodyMessage & "telffirma: "& request.form("telffirma") & "<br />"
        strBodyMessage = strBodyMessage & "Email: "& request.form("Email") & "<br />"
        msg.body = strBodyMessage
     
        if not msg.Send("smtp.mail.dk" ) then
            Response.write "<pre>" & msg.log & "</pre>"
        end if
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<table width="90%" height="245" border="1" cellpadding="2" bordercolorlight="#C0C0C0">
    <tr>
   
<td>Cpr.nr.: </td><td bgcolor="silver">
      <% response.Write request.Form("cprnr") %></td>
      </tr>
   
    <tr>
<td>Efternavn: </td><td bgcolor="silver">
<% response.Write request.Form("efternavn") %></td>
       
    </tr>
    <tr>
<td>Fornavn: </td><td bgcolor="silver">
<% response.Write request.Form("fornavn") %></td>
       
    </tr>
    <tr>
<td>Adresse:</td> <td bgcolor="silver">
<% response.Write request.Form("adresse") %></td>
     
    </tr>
    <tr>
<td>Postnr: </td><td bgcolor="silver">
<% response.Write request.Form("postnr") %>
    By:
    <% response.Write request.Form("by") %>      </td>
   
    </tr>
    <tr>
<td>Firma: </td><td bgcolor="silver">
<% response.Write request.Form("firma") %>    </td>
    </tr>
    <tr>
<td height="29">Telefon: </td><td bgcolor="silver" height="29">
    Privat <% response.Write request.Form("telfpriv") %>
    Firma  <% response.Write request.Form("telffirma") %></td>
   
    </tr>
    <tr>
      <td height="28">E-mail: </td><td bgcolor="silver" height="28">
      <% response.Write request.Form("Email") %>
    </td>
    </tr>
  </table>

</body>
</html>
Avatar billede Meggel Novice
20. marts 2004 - 19:54 #19
sådan den Redirect lige til en anden side..
Avatar billede Meggel Novice
20. marts 2004 - 19:56 #20
<%
        set msg = Server.CreateOBject( "JMail.Message" )
        msg.Logging = true
        msg.silent = true
        msg.From = "test@c.dk"
        msg.FromName = "test"
        msg.AddRecipient "fruth@c.dk"
        msg.Subject = "Emne"   
        strBodyMessage = strBodyMessage & "CPRnr.: " & request.form("cprnr") & vbCrlf&""
        strBodyMessage = "Fornavn : " & request.form("fornavn") &  vbCrlf&""
        strBodyMessage = strBodyMessage & "Efternavn: " & request.form("efternavn") &  vbCrlf&""
        strBodyMessage = strBodyMessage & "Fornacn: "& request.form("fornavn") &  vbCrlf&""
        strBodyMessage = strBodyMessage & "adresse: "& request.form("adresse") &  vbCrlf&""
        strBodyMessage = strBodyMessage & "postnr: "& request.form("postnr") & ""
        strBodyMessage = strBodyMessage & "by: "& request.form("by") &  vbCrlf&""
        strBodyMessage = strBodyMessage & "firma: "& request.form("firma") &  vbCrlf&""
        strBodyMessage = strBodyMessage & "telfpriv: "& request.form("telfpriv") &  vbCrlf&""
        strBodyMessage = strBodyMessage & "telffirma: "& request.form("telffirma") &  vbCrlf&""
        strBodyMessage = strBodyMessage & "Email: "& request.form("Email") &  vbCrlf&""
        msg.body = strBodyMessage
     
        if not msg.Send("smtp.mail.dk" ) then
            Response.write "<pre>" & msg.log & "</pre>"
        end if
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<table width="90%" height="245" border="1" cellpadding="2" bordercolorlight="#C0C0C0">
    <tr>
   
<td>Cpr.nr.: </td><td bgcolor="silver">
      <% response.Write request.Form("cprnr") %></td>
      </tr>
   
    <tr>
<td>Efternavn: </td><td bgcolor="silver">
<% response.Write request.Form("efternavn") %></td>
       
    </tr>
    <tr>
<td>Fornavn: </td><td bgcolor="silver">
<% response.Write request.Form("fornavn") %></td>
       
    </tr>
    <tr>
<td>Adresse:</td> <td bgcolor="silver">
<% response.Write request.Form("adresse") %></td>
     
    </tr>
    <tr>
<td>Postnr: </td><td bgcolor="silver">
<% response.Write request.Form("postnr") %>
    By:
    <% response.Write request.Form("by") %>      </td>
   
    </tr>
    <tr>
<td>Firma: </td><td bgcolor="silver">
<% response.Write request.Form("firma") %>    </td>
    </tr>
    <tr>
<td height="29">Telefon: </td><td bgcolor="silver" height="29">
    Privat <% response.Write request.Form("telfpriv") %>
    Firma  <% response.Write request.Form("telffirma") %></td>
   
    </tr>
    <tr>
      <td height="28">E-mail: </td><td bgcolor="silver" height="28">
      <% response.Write request.Form("Email") %>
    </td>
    </tr>
  </table>

</body>
</html>


sådan der den lavede ikke linie skift før.. men gør den nu..
Avatar billede loudrup Nybegynder
20. marts 2004 - 20:04 #21
nu får jeg følgende fejlmeddelelse

Fejltype:
Serverobjekt, ASP 0177 (0x800401F3)
Ugyldig klassestreng
/testmappe/visinfo.asp, line 2


Browsertype:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; Hotbar 4.4.2.0)

Side:
POST 313 bytes to /testmappe/visinfo.asp

POST Data:
cprnr=456346&efternavn=&fornavn=&adresse=&postnr=&by=&firma=&telfpriv=&telffirma=&Email=&recipient=mette@cosmomedia.dk&fromaddress=Email&subject=Fra+test+hjemmeside&redirect=C%2Ftestmappe%2Ftak_for_ti . . .

Klokkeslæt:
20. marts 2004, 20:02:47


Yderligere oplysninger:
Microsoft Support
Avatar billede Meggel Novice
20. marts 2004 - 20:07 #22
du har ikke installer jmail på serveren

det kan findes på http://www.jps.at/java/tools/source/jmailsrv.zip
Avatar billede loudrup Nybegynder
20. marts 2004 - 20:44 #23
Jeg har ikke fået det til at virke helt optimalt, men jeg synes at du fortjener dine point. Du har virkelig gjort meget for at hjælpe mig. Jeg kan bare ikke få den til at sende. Hvad nu hvis jeg bare vil afprøve det på min personal webserver.Kan det lade sig gøre?
Avatar billede loudrup Nybegynder
20. marts 2004 - 20:45 #24
Jeg skriver endnu et spørgsmål, som du måske kan hjælpe med.
Avatar billede Meggel Novice
20. marts 2004 - 21:09 #25
du skriver bare..
Avatar billede loudrup Nybegynder
20. marts 2004 - 22:09 #26
jeg vil gerne have at "visinfo" åbner i et nyt vindue, og derfor har jeg indsat taget=_blank. Det virker også fint nok, men nederst på siden vil jeg have indsat 2 knapper. En der bekræfter oplysningerne (hvis de er rigtige) og en der gør det muligt for brugeren at lukke vinduet og vende tilbage til de oplysninger som han har skrevet hvis han nu har tastet nogle forkerte oplysninger.
Avatar billede Meggel Novice
20. marts 2004 - 23:14 #27
hmm skal jeg kigge på..
Avatar billede deeflate Nybegynder
21. marts 2004 - 09:28 #28
Så kan du lave visinfo som et preview-vindue i stedet. Se her:
http://www.eksperten.dk/spm/476019

Og så kan du udføre mailsendningen, når formen bliver submittet - altså når brugeren har godkendt, og du derfor er sikker på, at det er de rigtige oplysninger.
Avatar billede loudrup Nybegynder
21. marts 2004 - 09:45 #29
ja, det lyder som en god ide. Problemet er bare at jeg ikke selv kan finde ud af at rette koden til så det kommer til at virke. Er det noget som du kan hjælpe mig med. Du kan se koden længere oppe. Hvis du kan hjælpe mig med dette så vil jeg gerne smide nogle point ud til dig.
Avatar billede Meggel Novice
21. marts 2004 - 10:25 #30
oki jeg skal da lige fixe det for dig så...
Avatar billede deeflate Nybegynder
21. marts 2004 - 10:26 #31
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>test</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<script>
  function prev() {
    var indhold = "<html><head><title>Preview</title><meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\"></head><body>";

    //besked til bruger
    indhold = indhold + "Hvis nedenstående er korrekt, så <a href=\"#\" onClick=\"window.close();\">luk dette vindue</a> og submit formularen.<br /><br />";

    //her er det layout, det skal previewes i
    indhold = indhold + "<table width=\"90%\" height=\"245\" border=\"1\" cellpadding=\"2\" bordercolorlight=\"#C0C0C0\">";

    //her fylder du dine værdier i
    indhold = indhold + "<tr><td>Cpr.nr.</td><td bgcolor=\"silver\">" + document.form1.cprnr.value + "</td></tr>";
    indhold = indhold + "<tr><td>Efternavn</td><td bgcolor=\"silver\">" + document.form1.efternavn.value + "</td></tr>";
    indhold = indhold + "<tr><td>Fornavn</td><td bgcolor=\"silver\">" + document.form1.fornavn.value + "</td></tr>";

    //osv. - resten af felterne fylder du bare ind som det ovenstående.

    //det omkringliggende afsluttes
    indhold = indhold + "</table></body></html>";


    //preview-vindue åbnes og indhold skrives til det
    win = window.open("", "prevVindue", "width=820,height=600,left=300,top=50,toolbars=no,scrollbars=yes,status=yes,resizable=yes");
    win.document.write(indhold);

  }

</script>

</head>

<body>


<%
If request.ServerVariables("REQUEST_METHOD") = "POST" Then

strFrom = "xxx@xxxx.dk"

strFromName = request.form("name")

strTo = "modtager@xxxx.dk"
strSubject = "Tilmelding fra site"
strBodyMessage = "Fornavn : " & request.form("fornavn") & "<br />"
strBodyMessage = strBodyMessage & "Efternavn : " & request.form("efternavn") & "<br />"
strBodyMessage = strBodyMessage & "CPRnr.: : " & request.form("cprnr") & "<br />"

'osv. - fyld resten af felterne ind her

set msg = Server.CreateObject( "JMail.Message" )
msg.ContentType = "text/html"
msg.Logging = true
msg.silent = true
msg.From = strFrom
msg.FromName = strFromName
msg.AddRecipient strTo

msg.replyto = request.form("Email")

msg.Subject = strSubject
msg.Body = strBodyMessage

if not msg.Send("mail.xxxx.dk") then
    Response.write msg.log
else
    Response.Write "<font class='subheading'>Din tilmelding er blevet sendt</font><br><br>"
end if

end if
%>



<form name="form1" method="post" action="visinfo.asp">

  <table width="90%" height="245" border="1" cellpadding="2" bordercolorlight="#C0C0C0">
    <tr>
   
<td>Cpr.nr.: </td><td bgcolor="silver">
      <input type="text" size="11" name="cprnr">*</td>
      </tr>
   
    <tr>
<td>Efternavn: </td><td bgcolor="silver">
    <input type="text" size="35" name="efternavn">*</td>
       
    </tr>
    <tr>
<td>Fornavn: </td><td bgcolor="silver">
    <input type="text" size="35" name="fornavn">*</td>
       
    </tr>
    <tr>
<td>Adresse:</td> <td bgcolor="silver">
    <input type="text" size="35" name="adresse"> *</td>
     
    </tr>
    <tr>
<td>Postnr: </td><td bgcolor="silver">
    <input type="text" size="10" maxlenght="10" name="postnr">
    * By:       
    <input type="text" size="25" name="by"> *</td>
   
    </tr>
    <tr>
<td>Firma: </td><td bgcolor="silver">   
    <input type="text" size="35" name="firma"></td>
    </tr>
    <tr>
<td height="29">Telefon: </td><td bgcolor="silver" height="29">
    Privat <input type="text" size="12" name="telfpriv">
    Firma  <input type="text" size="12" name="telffirma"></td>
   
    </tr>
    <tr>
      <td height="28">E-mail: </td><td bgcolor="silver" height="28">
      <input type="text" size="35" name="Email">
        *</td>
    </tr>
  </table>
    <tr>    <p>
<input type="button" value="preview" onClick="prev()"><input type="submit" value="Send tilmelding"> <input type="reset" value="Nulstil tilmelding" ></p>
    </tr>
</form>
</body>
</html>









<!--


<html>
<head>
<title>Preview</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<table width="90%" height="245" border="1" cellpadding="2" bordercolorlight="#C0C0C0">
    <tr>
   
<td>Cpr.nr.: </td><td bgcolor="silver">
      <% response.Write request.Form("cprnr") %></td>
      </tr>
   
    <tr>
<td>Efternavn: </td><td bgcolor="silver">
<% response.Write request.Form("efternavn") %></td>
       
    </tr>
    <tr>
<td>Fornavn: </td><td bgcolor="silver">
<% response.Write request.Form("fornavn") %></td>
       
    </tr>
    <tr>
<td>Adresse:</td> <td bgcolor="silver">
<% response.Write request.Form("adresse") %></td>
     
    </tr>
    <tr>
<td>Postnr: </td><td bgcolor="silver">
<% response.Write request.Form("postnr") %>
    By:
    <% response.Write request.Form("by") %>      </td>
   
    </tr>
    <tr>
<td>Firma: </td><td bgcolor="silver">
<% response.Write request.Form("firma") %>    </td>
    </tr>
    <tr>
<td height="29">Telefon: </td><td bgcolor="silver" height="29">
    Privat <% response.Write request.Form("telfpriv") %>
    Firma  <% response.Write request.Form("telffirma") %></td>
   
    </tr>
    <tr>
      <td height="28">E-mail: </td><td bgcolor="silver" height="28">
      <% response.Write request.Form("Email") %>
    </td>
    </tr>
  </table>

</body>
</html>

-->
Avatar billede deeflate Nybegynder
21. marts 2004 - 10:27 #32
Hov! Der var lidt for meget med ;)

Sådan:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>test</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<script>
  function prev() {
    var indhold = "<html><head><title>Preview</title><meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\"></head><body>";

    //besked til bruger
    indhold = indhold + "Hvis nedenstående er korrekt, så <a href=\"#\" onClick=\"window.close();\">luk dette vindue</a> og submit formularen.<br /><br />";

    //her er det layout, det skal previewes i
    indhold = indhold + "<table width=\"90%\" height=\"245\" border=\"1\" cellpadding=\"2\" bordercolorlight=\"#C0C0C0\">";

    //her fylder du dine værdier i
    indhold = indhold + "<tr><td>Cpr.nr.</td><td bgcolor=\"silver\">" + document.form1.cprnr.value + "</td></tr>";
    indhold = indhold + "<tr><td>Efternavn</td><td bgcolor=\"silver\">" + document.form1.efternavn.value + "</td></tr>";
    indhold = indhold + "<tr><td>Fornavn</td><td bgcolor=\"silver\">" + document.form1.fornavn.value + "</td></tr>";

    //osv. - resten af felterne fylder du bare ind som det ovenstående.

    //det omkringliggende afsluttes
    indhold = indhold + "</table></body></html>";


    //preview-vindue åbnes og indhold skrives til det
    win = window.open("", "prevVindue", "width=820,height=600,left=300,top=50,toolbars=no,scrollbars=yes,status=yes,resizable=yes");
    win.document.write(indhold);

  }

</script>

</head>

<body>


<%
If request.ServerVariables("REQUEST_METHOD") = "POST" Then

strFrom = "xxx@xxxx.dk"

strFromName = request.form("name")

strTo = "modtager@xxxx.dk"
strSubject = "Tilmelding fra site"
strBodyMessage = "Fornavn : " & request.form("fornavn") & "<br />"
strBodyMessage = strBodyMessage & "Efternavn : " & request.form("efternavn") & "<br />"
strBodyMessage = strBodyMessage & "CPRnr.: : " & request.form("cprnr") & "<br />"

'osv. - fyld resten af felterne ind her

set msg = Server.CreateObject( "JMail.Message" )
msg.ContentType = "text/html"
msg.Logging = true
msg.silent = true
msg.From = strFrom
msg.FromName = strFromName
msg.AddRecipient strTo

msg.replyto = request.form("Email")

msg.Subject = strSubject
msg.Body = strBodyMessage

if not msg.Send("mail.xxxx.dk") then
    Response.write msg.log
else
    Response.Write "<font class='subheading'>Din tilmelding er blevet sendt</font><br><br>"
end if

end if
%>



<form name="form1" method="post" action="visinfo.asp">

  <table width="90%" height="245" border="1" cellpadding="2" bordercolorlight="#C0C0C0">
    <tr>
   
<td>Cpr.nr.: </td><td bgcolor="silver">
      <input type="text" size="11" name="cprnr">*</td>
      </tr>
   
    <tr>
<td>Efternavn: </td><td bgcolor="silver">
    <input type="text" size="35" name="efternavn">*</td>
       
    </tr>
    <tr>
<td>Fornavn: </td><td bgcolor="silver">
    <input type="text" size="35" name="fornavn">*</td>
       
    </tr>
    <tr>
<td>Adresse:</td> <td bgcolor="silver">
    <input type="text" size="35" name="adresse"> *</td>
     
    </tr>
    <tr>
<td>Postnr: </td><td bgcolor="silver">
    <input type="text" size="10" maxlenght="10" name="postnr">
    * By:       
    <input type="text" size="25" name="by"> *</td>
   
    </tr>
    <tr>
<td>Firma: </td><td bgcolor="silver">   
    <input type="text" size="35" name="firma"></td>
    </tr>
    <tr>
<td height="29">Telefon: </td><td bgcolor="silver" height="29">
    Privat <input type="text" size="12" name="telfpriv">
    Firma  <input type="text" size="12" name="telffirma"></td>
   
    </tr>
    <tr>
      <td height="28">E-mail: </td><td bgcolor="silver" height="28">
      <input type="text" size="35" name="Email">
        *</td>
    </tr>
  </table>
    <tr>    <p>
<input type="button" value="preview" onClick="prev()"><input type="submit" value="Send tilmelding"> <input type="reset" value="Nulstil tilmelding" ></p>
    </tr>
</form>
</body>
</html>
Avatar billede deeflate Nybegynder
21. marts 2004 - 10:29 #33
Lige en ting til. Skift

<form name="form1" method="post" action="visinfo.asp">

ud med

<form name="form1" method="post">

Da jeg har droppet den ekstra side.
Avatar billede Meggel Novice
21. marts 2004 - 10:32 #34
det her kan jeg ikke finde ud af .. er ikke så meget inde i javascript...
Avatar billede loudrup Nybegynder
21. marts 2004 - 10:39 #35
ok, men her er hende uden megen kendskab. kan i ikke lige dele det op sådan så jeg ved hvad der hører til hvad. Dvs hvad er visinfo siden og hvad er den anden, eller er dette mon kun en side i alt. Undskyld de dumme spørgsmål, men jeg er ikke til koder ;)
Avatar billede deeflate Nybegynder
21. marts 2004 - 10:53 #36
Dette er kun en side i alt.
Avatar billede loudrup Nybegynder
21. marts 2004 - 11:04 #37
hvilken en af dem? eller behøver jeg kun denne side alene
Avatar billede loudrup Nybegynder
21. marts 2004 - 11:33 #38
Det virker fint,nu mangler jeg bare en print knap. Jeg har koden til den, men jeg ved ikke hvordan jeg indsætter den. Det skal være der hvor han prewiever siden. Den skal placeres øverst på siden.
Avatar billede loudrup Nybegynder
21. marts 2004 - 11:34 #39
Dette er koden:

// Funktion der Printer en Side ud
// Vireker i Både MSIE og Netscape
// Funktion kaldes af et Onclick event
// På enten et <img> eller <input type=button>


function printit()
{

if (NS)
{
  window.print() ; 
}
  else
{
  var WebBrowser = '<OBJECT ID="WebBrowser1" WIDTH=0 HEIGHT=0 CLASSID="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2"></OBJECT>';
  document.body.insertAdjacentHTML('beforeEnd', WebBrowser);
  WebBrowser1.ExecWB(6, 2);
  }
}
</script>

<SCRIPT Language="Javascript"> 
var NS = (navigator.appName == "Netscape");
var VERSION = parseInt(navigator.appVersion);
if (VERSION > 3) {
    document.write('<form><input type=button value="Udskriv denne side" name="Print" onClick="printit()"></form>');
  }
</script>
Avatar billede loudrup Nybegynder
21. marts 2004 - 11:48 #40
deeflate, jeg vil gerne give dig nogle point. Hvordan kan jeg gøre det? Hvad hvis jeg opretter en spørgsmål stilet til dig?
Avatar billede loudrup Nybegynder
21. marts 2004 - 13:02 #41
hvor bliver du af? Jeg har nu prøvet at indsætte koden for en printknap på siden men det bliver noget værre rod. Jeg synes at javascript virker meget kompliceret. Kan du ikke lige hjælpe mig
Avatar billede deeflate Nybegynder
21. marts 2004 - 22:54 #42
Jeg har været til 50-års fødselsdag :)

Du opretter bare et spørgsmål med overskriften "Point til deeflate" og så linker du til det spørgsmål her - så andre kan følge forløbet.

Her har jeg tilføjet en print-knap.
Din print-funktion virkede ikke i min browser, så jeg har tilføjet en helt standard print-funktion i stedet.
Jeg har også tilføjet menubaren, så sidder man med en browser, hvor printfunktionen ikke virker, kan man bare printe via sin menubar, som man plejer.


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>test</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<script>
  function prev() {
    var indhold = "<html><head><title>Preview</title><meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">"

    indhold = indhold + "</head><body>";

    //besked til bruger
    indhold = indhold + "Hvis nedenstående er korrekt, så <a href=\"#\" onClick=\"window.close()\;\">luk dette vindue</a> og submit formularen.<br /><br />";
    indhold = indhold + "<form><input type=\"button\" value=\"Print denne side\" onclick=\"window.print()\;\"></form>"

    //her er det layout, det skal previewes i
    indhold = indhold + "<table width=\"90%\" height=\"245\" border=\"1\" cellpadding=\"2\" bordercolorlight=\"#C0C0C0\">";

    //her fylder du dine værdier i
    indhold = indhold + "<tr><td>Cpr.nr.</td><td bgcolor=\"silver\">" + document.form1.cprnr.value + "</td></tr>";
    indhold = indhold + "<tr><td>Efternavn</td><td bgcolor=\"silver\">" + document.form1.efternavn.value + "</td></tr>";
    indhold = indhold + "<tr><td>Fornavn</td><td bgcolor=\"silver\">" + document.form1.fornavn.value + "</td></tr>";

    //osv. - resten af felterne fylder du bare ind som det ovenstående.

    //det omkringliggende afsluttes
    indhold = indhold + "</table></body></html>";


    //preview-vindue åbnes og indhold skrives til det
    win = window.open("", "prevVindue", "width=820,height=600,left=300,top=50,toolbar=yes,scrollbars=yes,status=yes,menubar=yes,resizable=yes");
    win.document.write(indhold);

  }

</script>


</head>

<body>

<%
If request.ServerVariables("REQUEST_METHOD") = "POST" Then

strFrom = "xxx@xxxx.dk"

strFromName = request.form("name")

strTo = "modtager@xxxx.dk"
strSubject = "Tilmelding fra site"
strBodyMessage = "Fornavn : " & request.form("fornavn") & "<br />"
strBodyMessage = strBodyMessage & "Efternavn : " & request.form("efternavn") & "<br />"
strBodyMessage = strBodyMessage & "CPRnr.: : " & request.form("cprnr") & "<br />"

'osv. - fyld resten af felterne ind her

set msg = Server.CreateObject( "JMail.Message" )
msg.ContentType = "text/html"
msg.Logging = true
msg.silent = true
msg.From = strFrom
msg.FromName = strFromName
msg.AddRecipient strTo

msg.replyto = request.form("Email")

msg.Subject = strSubject
msg.Body = strBodyMessage

if not msg.Send("mail.xxxx.dk") then
    Response.write msg.log
else
    Response.Write "<font class='subheading'>Din tilmelding er blevet sendt</font><br><br>"
end if

end if
%>



<form name="form1" method="post" action="visinfo.asp">

  <table width="90%" height="245" border="1" cellpadding="2" bordercolorlight="#C0C0C0">
    <tr>
   
<td>Cpr.nr.: </td><td bgcolor="silver">
      <input type="text" size="11" name="cprnr">*</td>
      </tr>
   
    <tr>
<td>Efternavn: </td><td bgcolor="silver">
    <input type="text" size="35" name="efternavn">*</td>
       
    </tr>
    <tr>
<td>Fornavn: </td><td bgcolor="silver">
    <input type="text" size="35" name="fornavn">*</td>
       
    </tr>
    <tr>
<td>Adresse:</td> <td bgcolor="silver">
    <input type="text" size="35" name="adresse"> *</td>
     
    </tr>
    <tr>
<td>Postnr: </td><td bgcolor="silver">
    <input type="text" size="10" maxlenght="10" name="postnr">
    * By:       
    <input type="text" size="25" name="by"> *</td>
   
    </tr>
    <tr>
<td>Firma: </td><td bgcolor="silver">   
    <input type="text" size="35" name="firma"></td>
    </tr>
    <tr>
<td height="29">Telefon: </td><td bgcolor="silver" height="29">
    Privat <input type="text" size="12" name="telfpriv">
    Firma  <input type="text" size="12" name="telffirma"></td>
   
    </tr>
    <tr>
      <td height="28">E-mail: </td><td bgcolor="silver" height="28">
      <input type="text" size="35" name="Email">
        *</td>
    </tr>
  </table>
    <tr>    <p>
<input type="button" value="preview" onClick="prev()"><input type="submit" value="Send tilmelding"> <input type="reset" value="Nulstil tilmelding" ></p>
    </tr>
</form>
</body>
</html>


Og det er stadig kun denne ene side ;)
Avatar billede loudrup Nybegynder
22. marts 2004 - 08:18 #43
Ok, nu har jeg en print knap, men den virker heller ikke hos mig. Hvad med den kode som jeg har skrevet tidligere. Er det ikke muligt at få den flettet ind i koden på en eller anden måde, for den virker nemlig fint?
Avatar billede deeflate Nybegynder
22. marts 2004 - 09:54 #44
Sagen er den, at der ikke kan printes før siden bliver reloaded.
Prøv at erstatte den øverste script-blok med denne her:

<script>
  function prev() {
    var indhold = "<html><head><title>Preview</title><meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">"

    indhold = indhold + "<script type=\"text/javascript\">function refresh(){location.reload()}<\/script>"

    indhold = indhold + "</head><body onLoad=\"window.print()\">";

    //besked til bruger
    indhold = indhold + "Hvis nedenstående er korrekt, så <a href=\"#\" onClick=\"window.close()\;\">luk dette vindue</a> og submit formularen.<br /><br />";

    indhold = indhold + "<form><input type=\"button\" value=\"Print denne side\" onClick=\"refresh()\;\"></form>"

    //her er det layout, det skal previewes i
    indhold = indhold + "<table width=\"90%\" height=\"245\" border=\"1\" cellpadding=\"2\" bordercolorlight=\"#C0C0C0\">";

    //her fylder du dine værdier i
    indhold = indhold + "<tr><td>Cpr.nr.</td><td bgcolor=\"silver\">" + document.form1.cprnr.value + "</td></tr>";
    indhold = indhold + "<tr><td>Efternavn</td><td bgcolor=\"silver\">" + document.form1.efternavn.value + "</td></tr>";
    indhold = indhold + "<tr><td>Fornavn</td><td bgcolor=\"silver\">" + document.form1.fornavn.value + "</td></tr>";

    //osv. - resten af felterne fylder du bare ind som det ovenstående.

    //det omkringliggende afsluttes
    indhold = indhold + "</table></body></html>";


    //preview-vindue åbnes og indhold skrives til det
    win = window.open("preview.asp", "prevVindue", "width=820,height=600,left=300,top=50,toolbar=yes,scrollbars=yes,status=yes,menubar=yes,resizable=yes");
    win.document.write(indhold);
  }

</script>


Nu reloader printknappen siden og så printes siden onload.
Avatar billede deeflate Nybegynder
22. marts 2004 - 09:55 #45
Og jo, din kode kan godt flettes ind, men det giver samme problemstilling - siden skal reloades, før der kan printes.
Avatar billede deeflate Nybegynder
22. marts 2004 - 10:33 #46
Denne tråd er fortsat i http://www.eksperten.dk/spm/480282
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