%Response.Buffer=true%>
<%
Set conn = Server.CreateObject("ADODB.Connection")
Set mtb=Server.CreateObject("ADODB.Recordset")
conn.Open "Provider=sqloledb;Data Source=winsql1.abac.com;Initial Catalog=tidriss_ozomedia;User ID=ozomedia;Password=t02698340;"
strsql="select * from serials where ID=1"
mtb.Open strsql,conn,1,2
x=mtb.Fields("serial")+1
mtb.Fields("serial")=x
mtb.Update
mtb.Close
strsql="insert into Customersfree(Serial,Fname,Lname,City,Country,email1,Regcount) values (" & x & ",'" & Request.Form("firstname") & "'," _
& "'" & Request.Form("lastname") & "','" & Request.Form("city") & "','" & Request.Form("country") & "','" & Request.Form("Email1") & "','0')"
mtb.Open strsql,conn,1,2
%>
OZONE Media Technology
 |
|
|
|
|
|
| كافة الحقوق محفوظة لمؤسسة اوزون العالميه لتقنيه برامج الحاسب الالى
2006 |