<% Dim con,tt,News,action set con = server.CreateObject("ADODB.Connection") con.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="&Server.Mappath("/db/database842.mdb") Set Contact = con.execute("select * from Contact") Set Contact2 = con.execute("select * from Contact2") action = request.querystring("action") If action = "submit" then email = request.Form("email") comments = request.Form("comments") Set Mail = Server.CreateObject("CDO.Message") Mail.From = email Mail.To = "brian@mediaprodevelopment.com; " Mail.Subject = "Questions and Comments" strMsgHeader = "Questions and Comments from" & vbCrLf & email & vbCrLf & vbCrLf & comments Mail.TextBody = strMsgHeader Mail.Send response.redirect "ContactThanks.asp" End If %> Cenni Racing

 
  SAMPLES
 

DVD LABEL
 
 
BUSINESS CARD
   
 

Front

Back
   
   
Site by Mediapro