/ Forside / Teknologi / Udvikling / Java Scripts / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Java Scripts
#NavnPoint
molokyle 5410
Klaudi 2799
smorch 2439
kim 1360
Harlekin 1134
bentjuul 984
gibson 800
severino 695
Random 675
10  konsulent.. 626
Oprette i DB, og maile samtidigt.
Fra : Per Ahm


Dato : 20-04-03 11:05

Hej NG!

Jeg har nedenstående kode til oprettelse af en ordre i en DB, bekræftelsen,
er på samme side og det virker fint.

Jeg vil gerne have den til at maile samtidigt ved oprettelsen. Men det kan
jeg skisme ikke lige hitte. Som den er nu skal man manuelt klikke send, for
at maile resultatet...

Vil være lykkelig for lidt hjælp.

Med venlig hilsen

Per Ahm
________________________

<%
SalesRep = Request.Form("SalesRep")
Cust = Request.Form("Customer")
CustCity = Request.Form("CustomerAddrCity")
CustPhone = Request.Form("CustomerPhone")
CustContact = Request.Form("CustomerContact")
CustEmail = Request.Form("CustomerEmail")
PortDate = Request.Form("PortDate")
jobart = Request.Form("jobart")
SalesNotes = Request.Form("SalesNotes")


If Len(SalesRep) = 0 Then
%>
<html>
<head>
<title>Opret ordre...</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="css/admin.css" type="text/css">
<style>
..buttoncls {
background-color: #6699CC;
border-width: 1;
color: #FEFEFE;
font-size: 8pt;
font-family: tahoma,verdana,arial;
}
</style>


</head>

<body bgcolor="#ecece4" text="#000000">

<form action="order.asp" method="post">
<table width="610" border="0" cellspacing="0" cellpadding="1"
align="center" bgcolor="#003366">
<tr>
<td>
<table width="610" border="0" cellspacing="2" cellpadding="0"
align="center" bgcolor="#6699CC">
<tr>
<td class="headers1" width="129" align="right">Mood Media</td>
<td width="277">&nbsp;</td>
<td width="204">&nbsp;</td>
</tr>
<tr>
<td width="129" height="31" align="right"
class="normaltxt">Salgs
Rep:</td>
<td colspan="2" height="31">
<p><select size="1" name="SalesRep">
<option>Poul Damholdt, Mood Media</option>
<option>Bettina, Mood Media</option>
<option>Karin, Mood Media</option>
<option>Jan Hansen, Mavt</option>
<option>Carsten Klyden, Mavt</option>
</select></p>
</td>
</tr>
</table>
<table width="610" border="0" cellspacing="2" cellpadding="0"
align="center" bgcolor="#6699cc">
<tr>
<td class="headers1" width="129" align="right">Kunde Info</td>
<td width="277">&nbsp;</td>
<td width="204">&nbsp;</td>
</tr>
<tr>
<td width="129" height="31" align="right" class="normaltxt">
<p class="normaltxt" align="right"> Firma:</p>
</td>
<td colspan="2" height="31">
<input type="text" name="Customer" class="normaltxt">
</td>
</tr>
<tr>
<td width="129" height="31" align="right" class="normaltxt">
Post / By:</td>
<td colspan="2" height="31">
<input type="text" name="CustomerAddrCity" class="normaltxt">
</td>
</tr>
<tr>
<td width="129" height="31" align="right" class="normaltxt">
<div align="right">Telefon:</div>
</td>
<td colspan="2" height="31">
<input type="text" name="CustomerPhone" class="normaltxt" >
</td>
</tr>
<tr>
<td width="129" height="31" align="right"
class="normaltxt">Kontaktperson:</td>
<td colspan="2" height="31">
<input type="text" name="CustomerContact" class="normaltxt" >
</td>
</tr>
<tr>
<td width="129" height="31" align="right"
class="normaltxt">Email:</td>
<td colspan="2" height="31">
<input type="text" name="CustomerEmail" class="normaltxt" >
</td>
</tr>
<tr>
<td width="129" height="31" align="right" class="normaltxt">
Udførelses dato:</td>
<td colspan="2" height="31">
<input type="text" name="PortDate"
value="<%response.write(date())%>" class="normaltxt" >
</td>
</tr>
<tr>
<td colspan="3" height="31" align="right" class="normaltxt">
<div align="left"></div>
</td>
</tr>
</table>
<table width="610" border="0" cellspacing="2" cellpadding="0"
align="center" bgcolor="#6699cc">
<tr>
<td width="129" align="right"
class="normaltxt"><b>Jobart:</b></td>
<td width="477">
<p><select size="1" name="jobart">
<option>Vælg jobart</option>
<option>Service</option>
<option>Ny installation</option>
</select></p>

</td>
</tr>
<tr>
<td colspan="2" align="right" class="normaltxt">
<div align="left">
<p>&nbsp;</p>
</div>
</td>
</tr>
</table>
<table width="610" border="0" cellspacing="2" cellpadding="0"
align="center" bgcolor="#6699cc">
<tr>
<td width="129" align="right" class="headers1">Installation</td>
<td>&nbsp;</td>
</tr>
<tr>
<td width="129" align="right" class="normaltxt"
valign="top">Fejlbeskrivelse
Installations detaljer</td>
<td>
<textarea name="SalesNotes" rows="6" cols="50"
class="normaltxt" ></textarea>
</td>
</tr>
<tr>
<td width="129" align="right" class="normaltxt"
valign="top">&nbsp;</td>
<td class="normaltxt">&nbsp;</td>
</tr>
<tr>
<td width="129" align="right" class="normaltxt"
valign="top">&nbsp;</td>
<td class="normaltxt">
<input class="buttoncls" type="submit" name="Submit"
value="Gem ordre">
<input type="reset" name="Submit2" value="Nulstil"
class="buttoncls">
<input type="button" name="Button52" value="Ordre oversigt"
class="buttoncls" href="javascript:void"
onClick='window.top.location="orderreport.asp"'>
<input type="button" name="Button5" value="Forsiden"
class="buttoncls" href="javascript:void"
onClick='window.top.location="service.asp"'>

</td>
</tr>
<tr>
<td width="129" align="right" class="normaltxt"
valign="top">&nbsp;</td>
<td class="normaltxt">&nbsp;</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</body>
</html>

<%
Else

Dim DBName, objConn, objRS, strSQL

'Path to the Database
DBName = server.mappath("..\..\DB\orders.mdb")

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DBQ=" & DBName & ";Driver={Microsoft Access
Driver (*.mdb)};"
objConn.Open

Set objRS = Server.CreateObject("ADODB.Recordset")
strSQL = "INSERT INTO CustInfo (SalesRep, Customer, CustCity, CustPhone,
CustContact, CustEmail, CustEstPortDate, Status, jobart, InstallNote) VALUES
('" & SalesRep & "', '" & Cust & "', '" & CustCity & "', '" & CustPhone &
"', '" & CustContact & "', '" & CustEmail & "', '" & PortDate & "', '1', '"
& jobart & "', '" & Salesnotes & "')"
Set objRS= objConn.execute(strSQL)

%>

<html>
<head>
<title>Din ordre er gemt...</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">


<link rel="stylesheet" href="css/admin.css" type="text/css">

</head>

<body bgcolor="#FFFFFF" text="#000000" >

<style>
..buttoncls {
background-color: #6699CC;
border-width: 1;
color: #FEFEFE;
font-size: 8pt;
font-family: tahoma,verdana,arial;
}
</style>


<table width="610" border="0" cellspacing="4" cellpadding="0"
align="center">
<tr>
<td colspan="2" class="headers1">
<p>
</p></td></tr>
<tr height="20">
<td colspan="2" class="normaltxt">
<form name="form2" method="post" action="">
<input type="button" name="Button52" value="Ordre oversigt"
class="buttoncls" href="javascript:void"
onClick='window.top.location="orderreport.asp"'>
<input type="button" name="Button892" value="Forsiden"
class="buttoncls" href="javascript:void"
onClick='window.top.location="service.asp"'>
</form></td></tr>
<tr>
<td width="129" align="right" class="normaltxt">&nbsp;</td><td
class="normaltxt">&nbsp;</td></tr>
</table>
<table width="610" border="0" cellspacing="4" cellpadding="0"
align="center">
<tr>
<td class="headers1" width="129" align="right">Mood Media</td><td
width="277">&nbsp;</td><td width="204">&nbsp;</td></tr>
<tr>
<td width="129" align="right" class="normaltxt" height="20">Salgs
Rep:</td><td colspan="2" class="headers1" height="20"><%= SalesRep %>
</td></tr>
<tr>
<td colspan="3" align="right" class="normaltxt">
<div align="left"> <img border="0" src="images/adminbar.gif"
width="400" height="1">
</div></td></tr>
</table>
<table width="610" border="0" cellspacing="4" cellpadding="0"
align="center">
<tr>
<td width="124" align="right" class="normaltxt" height="20">Ordre
Status:</td><td class="headers1" height="20" width="474">

<font color="#339900">Open</font>

</td></tr>
<tr>
<td colspan="3" align="right" class="normaltxt">
<div align="left"> <img border="0" src="adminbar.gif" width="400"
height="1">
</div></td></tr>
</table><table width="610" border="0" cellspacing="4" cellpadding="0"
align="center">
<tr>
<td class="headers1" width="129" align="right">Kunde Info</td><td
width="277">&nbsp;</td><td width="204">&nbsp;</td></tr>
<tr>
<td width="129" align="right" class="normaltxt" height="20">
<p class="normaltxt" align="right">Firma:</p></td><td colspan="2"
class="headers1" height="20"><%= Cust %></td></tr>

<tr>
<td width="129" height="20" align="right" class="normaltxt">Post /
By:</td><td colspan="2" height="20" class="headers1"><%= CustCity
%></td></tr>

<tr>
<td width="129" align="right" class="normaltxt" height="20">
<div align="right">Telefon:</div></td><td colspan="2"
class="headers1" height="20"><%= CustPhone %></td></tr>

<tr>
<td width="129" align="right" class="normaltxt" height="20">Kontakt
person:</td><td colspan="2" class="headers1" height="20"><%= CustContact
%></td></tr>

<tr>
<td width="129" align="right" class="normaltxt"
height="20">Email:</td><td colspan="2" class="headers1" height="20"><%=
CustEmail %></td></tr>

<tr>
<td width="129" align="right" class="normaltxt"
height="20">Udførelses dato:</td><td colspan="2" class="headers1"
height="20"><%= PortDate %></td></tr>

<tr>
<td colspan="3" align="right" class="normaltxt">
<div align="left">
<input type="image" border="0" name="imageField"
src="adminbar.gif" width="400" height="1">
</div></td></tr>
</table>
<table width="610" border="0" cellspacing="4" cellpadding="0"
align="center">
<tr>
<tr height="25">
<tr>
<td width="129" align="right" class="normaltxt"
height="20">Jobart:</td><td width="477" class="headers1" height="20"><%=
jobart %></td></tr>



<tr>
<td colspan="2" align="right" class="normaltxt">
<div align="left">
<input type="image" border="0" name="imageField3"
src="adminbar.gif" width="400" height="1">
</div></td></tr>

</table>
<table width="610" border="0" cellspacing="4" cellpadding="0"
align="center">
<tr>
<td width="129" align="right"
class="headers1">Installation</td><td>&nbsp;</td></tr>
<tr height="20">
<td width="129" align="right" class="normaltxt"
valign="top">Fejlbeskrivelse
Installations detaljer</td><td class="headers1"><%= SalesNotes
%></td></tr>
<tr>
<td width="129" align="right" class="normaltxt"
valign="top">&nbsp;</td><td class="normaltxt">&nbsp;</td></tr>
</table>


<FORM action="http://mail.mavt.dk/cgi-sys/formmail.pl" method="POST">

<INPUT type="hidden" name="recipient" value="ordre@mavt.dk">

<INPUT type="hidden" name="subject" value="Nyoprettet ordre: <%= jobart %>">

<INPUT TYPE=hidden NAME=redirect
VALUE="http://www.mavt.dk/service/service.asp">

<div align="center">
<center>

<table border="0">
<tr>
<td><font face="Arial" size="2">
<textarea rows="1" name="Kunde" cols="1" tabindex="3">
<%= Cust %>, <%= CustCity %>
Tlf: <%= CustPhone %>
Jobtype: <%= jobart %>
Bemærkninger: <%= SalesNotes %>
Dato: <%= PortDate %>
Oprettet af: <%= SalesRep %>
</textarea><INPUT TYPE="submit" VALUE="Send ordren pr. mail"></font></td>
</tr>
<tr>
<td>
<p align="center"></p>
</td>
</tr>
</table>

</center>
</div>

</form>





</body>
</html>
<%
End IF
%>



















 
 
Jens Peter Karlsen (20-04-2003)
Kommentar
Fra : Jens Peter Karlsen


Dato : 20-04-03 11:43

Prøv i d.e.i.w.serverside.asp

Regards Jens Peter Karlsen. Microsoft MVP - Frontpage.

On Sun, 20 Apr 2003 12:04:41 +0200, "Per Ahm" <per@perahm.dk> wrote:

>Jeg har nedenstående kode til oprettelse af en ordre i en DB, bekræftelsen,
>er på samme side og det virker fint.


Per Ahm (20-04-2003)
Kommentar
Fra : Per Ahm


Dato : 20-04-03 11:44

Ja jeg så egentlig godt jeg ramte den forkerte gruppe...
Så jeg har postet der!

Tak!

Per Ahm


"Jens Peter Karlsen" <jpkarlsen@mvps.org> skrev i en meddelelse
news:6cu4avobut8sc6vp0tk56kdrn7t7no39ju@4ax.com...
> Prøv i d.e.i.w.serverside.asp
>
> Regards Jens Peter Karlsen. Microsoft MVP - Frontpage.
>
> On Sun, 20 Apr 2003 12:04:41 +0200, "Per Ahm" <per@perahm.dk> wrote:
>
> >Jeg har nedenstående kode til oprettelse af en ordre i en DB,
bekræftelsen,
> >er på samme side og det virker fint.
>



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste