<%@Language="VBScript"%>
<%Response.Buffer=True%>
<%
Dim sql
Dim sql2
set conn1 = Server.CreateObject("Adodb.connection")
conn1.Open "Provider=microsoft.jet.oledb.4.0; Data Source="&server.MapPath ("producer.mdb"),"",""
If (request.form.Item("name"))="" or (request.form.Item("from"))="" or request.form.item("date")="" then
%>
Character Details Screen
<%
else
set rs = Server.CreateObject("Adodb.recordset")
sql= "select * from producer where name='" & request.form.item("name") &"' and from='" & request.form.item("from") & "' and date=#" & request.form.item("date") & "#"
rs.Open sql,conn1,2,2
if rs.bof=true then
a=Left(Request.Form("from"),1)
b=ltrim(a)
set rs1 = Server.CreateObject("Adodb.recordset")
sql2= "select distinct(name) from producer where from='" & request.form.item("from") &"' and left(name,1) = left('" & Request.Form.item("name") & "',1) and date=#" & request.form.item("date") & "#"
rs1.Open sql2,conn1,2,2
if rs1.bof=true then
%>
<%response.write("Name,Date and From Name In the Box Provided Above Doesn't Exist ...")%>