<%
Set cn=server.createObject("ADODB.Connection")
cn.ConnectionTimeout=60
strConn="DRIVER={MySQL}; Server=localhost;Database=saintstephensgreen_com_-_elist;UID=ssgadmin;PWD=ssgMYSQLpass;"
cn.open strConn
%>
The Black Sheep Irish Pub, 247 S. 17th Street, Philadelphia, PA
<%
if not request("Name")="" then
Set rs=server.createObject("ADODB.Recordset")
rs.open("Select * from elist where elid='" & request("eid") & "'"),cn,3,3
if rs.EOF then
d="0000-00-00"
rs.AddNew
rs(1)=request("Name")
rs(2)=request("Address")
rs(3)=request("City")
rs(4)=request("State")
rs(5)=request("Zip")
rs(6)=request("email")
rs(7)=request("cell")
rs(8)=request("bm")
rs(9)=request("comments")
rs(10)=request("ipp")
rs(11)=request("ide")
rs(12)=request("ilne")
if not request("yy")="" then
rs(13)= request("yy")+"-"+request("mm")+"-"+request("dd")
else
rs(13)=d
end if
rs(14)="Black Sheep"
rs.Update
end if
rs.Close
Set rs=Nothing
end if
%>
