Avatar billede killermaid Nybegynder
04. juni 2002 - 11:31 Der er 5 kommentarer

PHP > ASP

Jeg har et php script som jeg gerne vil have lavet om til et asp, hvis det er muligt.
Det skulle være lige til at gå til, men da jeg intet kender til asp, så beder jeg desperat om hjælp.
PHP'en ser sådan her ud:
<?php

if (isset($HTTP_POST_VARS)) {
  reset ($HTTP_POST_VARS);
  while (list ($key, $val) = each ($HTTP_POST_VARS)) {
    $AutoMail .= "$key = $val\n";
    if ($key == "Email__") $email = $val;
    if ($key == "Navn___") $navn  = $val;
  }
}

if (isset($HTTP_GET_VARS)) {
  reset ($HTTP_GET_VARS);
  while (list ($key, $val) = each ($HTTP_GET_VARS)) $AutoMail .= "$key = $val\n";
}

$headers  = "From: $navn <$email>\n";
// $headers .= "X-Sender: <xxx@xxx.dk>\n";
$headers .= "X-Mailer: AutoMailer\n"; // mailer
$headers .= "X-Priority: 3\n"; // Urgent message!
$headers .= "Return-Path: <xxx@xxx.dk>\n";  // Return path for errors

mail("xxx@xxx.dk", "WebOrdre", "$AutoMail", $headers);
header("Location: thankyou.html");
?>
Avatar billede netsrac Praktikant
04. juni 2002 - 12:16 #1
<%
automail = ""
For each item in Request.Form
  automail = automail & item & " = " & Request.Form(item)
  If item = "Email__" Then
      email = Request.Form(item)
  End if
  If item = "Navn__" Then
      navn = Request.Form(item)
  End if
Next

For each item in Request.QueryString
  automail = automail & item & " = " & Request.QueryString(item)
Next

Set JMail = Server.CreateObject("JMail.SMTPMail")
With JMail
    .ServerAddress = "din.mailserver.dk"
    .Sender        = email
    .Silent        = True
    .SenderName    = navn
    .Subject      = "Webordre"
    .AddRecipient  "xxx@xxx.dk"
    .Priority      = 3
    .Body = automail
    .Execute
End With
Set JMail = nothing

Response.Redirect("thankyou.html")
%>
Avatar billede netsrac Praktikant
04. juni 2002 - 12:17 #2
Hvis det skal se lidt pænt ud i emailen ville jeg nok bruge:

<%
automail = ""
For each item in Request.Form
  automail = automail & item & " = " & Request.Form(item) & VbCrLf
  If item = "Email__" Then
      email = Request.Form(item)
  End if
  If item = "Navn__" Then
      navn = Request.Form(item)
  End if
Next

For each item in Request.QueryString
  automail = automail & item & " = " & Request.QueryString(item) & VbCrLf
Next

Set JMail = Server.CreateObject("JMail.SMTPMail")
With JMail
    .ServerAddress = "din.mailserver.dk"
    .Sender        = email
    .Silent        = True
    .SenderName    = navn
    .Subject      = "Webordre"
    .AddRecipient  "xxx@xxx.dk"
    .Priority      = 3
    .Body = automail
    .Execute
End With
Set JMail = nothing

Response.Redirect("thankyou.html")
%>
Avatar billede killermaid Nybegynder
04. juni 2002 - 12:51 #3
nu har jeg indsat den og den virker...men den stiller det lidt mærkeligt op.
www.arteq.dk/!workspace/projects/arteq.dk/
pointene er dine hvis du lige vil kigge og komme med resten så alt står fint. Og kan der evt. sættes en font den skal sende med ? Det er under Online katalog >> køb (nederst).
mailen jeg fik så sådan ud:
Vare1________ = Diablo V1
IAlt1________ = 996.00
Antal1_______ = 1
StkPris1_____ = 996.00
By_____ = xxxxxx
IAltTOTAL____ = 996.00
IAltTOTALmoms = 1245.00
IAltRabat____ = 996.00
Email__ = xxx@xxx.dk
Gade___ = xxxxxx
Telefon = xxxxxxx
Navn___ = xxxxx
Postnr_ = xxxx
Avatar billede netsrac Praktikant
04. juni 2002 - 12:55 #4
Hvad skal laves om ? Så vidt jeg kan se, virker php scriptet på samme måde ?
Avatar billede killermaid Nybegynder
04. juni 2002 - 13:02 #5
ikke helt, jeg mener bestemt at via php scriptet stiller den det op,
sådan at disse ting i hvert fald står i rækkefølge:
e-mail
navn
gade
postnr.
by
tlf
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
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

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