Lave tjek af E-mail til database
Hej Eksperter!Jeg sidder og leger med lidt database, Jeg har nye fået lavet en form, som skriver til en access database, jeg vil nu gerne gøre sådan at der kun kan blive brugt en email der virker altså med eksempel@eksempel.dk, ikke noget med check mail! Filerne kan ses nedenfor, forresten må i gerne lige forklare mig om placeringen af scriptet, og hvorfor det lige skal være der. På forhånd tak!
<!-- Programnavn: default.asp -->
<!-- Created: 12-01-2005 -->
<!--#include Virtual="/ADOVBS.INC"-->
<html>
<header>
</header>
<body>
<!--#Include File="SetDBconn.inc"-->
<%
Set objKundeRS = Server.CreateObject("ADODB.Recordset")
' Connect til "Tilmelding", MyConn, , , adCmdTable
%>
<Table cellpadding="1" border="1" width="209" height="149">
<tr>
<td align="Left" valign="top" rowspan="3">
<Form action="opretnykunde.asp" method="post" Name="NyKunde" >
<table cellpadding="1" cellspacing="1" border="1" width="201">
<tr>
<td align="left" valign"top">Navn: </td>
<td align="left" valign"top"><Input name="Navn" TYPE="text" Size=""></td>
</tr>
<tr>
<td align="left" valign"top">Efternavn:</td>
<td align="left" valign"top"><Input name="Efternavn" TYPE="text" Size=""></td>
</tr>
<tr>
<td align="left" valign"top">Postnummer:</td>
<td align="left" valign"top"><Input name="Postnummer" TYPE="text" Size=""></td>
</tr>
<tr>
<td align="left" valign"top">By:</td>
<td align="left" valign"top"><Input name="By" TYPE="text" Size=""></td>
</tr>
<tr>
<td align="left" valign"top">E - mail:</td>
<td align="left" valign"top"><Input name="Email" TYPE="text" Size=""></td>
</tr>
<td align="left" valign="top"> <INPUT name="Submit" type=submit Value="Opret kunde"></td>
<td align="left" valign="top"> <INPUT name"reset" type=reset value="reset"> </td>
</tr>
</table>
---------
<!-- Minus AutoDato -->
<%response.buffer = true%>
<!-- Programnavn: opretnykunde.asp -->
<!--#include Virtual="/ADOVBS.INC"-->
<!--#include File="setDBconn.inc"-->
<%
Set objkundeRS = Server.CreateObject("ADODB.Recordset")
'Connect til "kunde tabellen"
objkundeRS.Open "Tilmelding", MyConn , adLockOptimistic , adCmdTable
Application.lock
MyConn.BeginTrans
objKundeRS.AddNew
objKundeRS("Navn") = Request.Form("Navn")
objKundeRS("Efternavn") = Request.Form("Efternavn")
objKundeRS("Postnummer") = Request.Form("Postnummer")
objKundeRS("By") = Request.Form("By")
objKundeRS("Email") = Request.Form("Email")
objKundeRS.Update
MyConn.CommitTrans
Application.Unlock
Response.Write "Så er du tilmeldt, vælger du senere at fortryde så mail mig på bacarden@stofanet.dk
objKundeRS.close
Set objKundeRS = Nothing
MyConn.close
Set MyConn = Nothing
%>
<html>
<header>
</header>
<body>
<%
If IsEmpty( Session("Count")) Then
Session("count") = 1
Else
Session("Count") = Session("count") + 1
End If
%>
</body>
</html>
