Mas,
Silahkan amati code dibawah ini , jika anda menginginkan code lengkapnya
e-mail saja saya Japri
<html>
<!-- #BeginTemplate "/Templates/ikrar.dwt" -->
<head>
<!-- #BeginEditable "doctitle" -->
<title>Posting Acceptor</title>
<!-- #EndEditable -->
<meta name="author" content="Created by Andi Zain,mail me at
[EMAIL PROTECTED]"
>
<LINK REL="Stylesheet" TYPE="text/css" TITLE="WalubiStyle"
HREF="javajscss/walubistylebawah.css">
</head>
<body bgcolor="#FFFFFF" background="IMAGES/Bg7.jpg">
<p> </p>
Data telah dikirimkan dengan baik ke dalam database E-Mail Directory
<p>
<%
'Creating Connection object
Set cn = Server.CreateObject("ADODB.Connection")
ConnString ="data source=edir;user=;password="
cn.ConnectionString = ConnString
cn.Open
For i = 1 to Request.Form("MaxRec")
'Collecting input fields
FirstName=Request.Form("NamaAwal" & i)
MiddleName=Request.Form("NamaTengah" & i)
LastName=Request.Form("NamaAkhir" & i)
Organization=Request.Form("Organisasi" & i)
City=Request.Form("Kota" & i)
State=Request.Form("State" & i)
Country=Request.Form("Country" & i)
EMail=Request.Form("Email" & i)
WebSite=Request.Form("WebSite" & i)
Sect=Request.Form("sect" & i)
Database=Request.Form("BasisData" & i)
Comments=Request.Form("Description" & i)
Add=request.form("Add" & i)
If Add="on" Then
'Inserting data to database
cn.Execute "INSERT INTO EmailDirectory
(FirstName,MiddleName,LastName,Organization,City,State,Country,ElectronicMai
l,WebSite,Sect,BasisData,Description) VALUES (" & "'" & FirstName & "'," &
"'" & MiddleName & "'," & "'" & LastName & "'," & "'" & Organization & "',"
& "'" & City & "'," & "'" & State & "'," & "'" & Country & "'," & "'" &
EMail & "'," & "'" & WebSite & "'," & "'" & Sect & "'," & "'" & Database &
"'," & "'" & Comments & "')"
else
'Do nothing
End If
Next
'Deleting RegistrantData records
cn.Execute "Delete * FROM RegistrantData"
'Closing connection
cn.Close
Set cn=Nothing
%>
<p class="MsoBodyText"><a href="#top"><img src="IMAGES/Gotop1.gif"
width="95" height="22" border="0"></a><br>
<img src="IMAGES/copyright1.gif" width="400" height="15">
</body>
<!-- #EndTemplate -->
</html>
Regards,
Andi Zain
http://www.tekmetrics.com/transcript.jsp?pid=39112
-----Original Message-----
From: smile !!! [mailto:[EMAIL PROTECTED]]
Sent: Friday, October 22, 1999 2:51 PM
To: [EMAIL PROTECTED]
Subject: [webauthor] ADO Database
Rekan2 milis,
Bagaimana membuat semacam program maintenance database di web, sebagai
berikut:
1. kolom ada 2
2. di web, ditampilkan record2 yang pd kolom ke-2nya kosong
3. di web juga ditambahkan checkbox di tiap record sebagai indikator apakah
record tsb dihapus atau diupdate
Saya sudah mencoba, tetapi saya kesulitan pada saat mengecek value
checkbox-nya
Ada yg bisa membantu?
Terima kasih
-----------------------------------------------
FREE! The World's Best Email Address @email.com
Reserve your name now at http://www.email.com
Layanan Pertukaran Banner - http://www.indobanner.co.id
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
To unsubscribe, e-mail : [EMAIL PROTECTED]
To subscribe, e-mail : [EMAIL PROTECTED]
Netika BerInternet : [EMAIL PROTECTED]
Layanan Pertukaran Banner - http://www.indobanner.co.id
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
To unsubscribe, e-mail : [EMAIL PROTECTED]
To subscribe, e-mail : [EMAIL PROTECTED]
Netika BerInternet : [EMAIL PROTECTED]
