ＡＳＰテスト　ＤＢアプリの削除

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" Content="text/html; charset=x-sjis">
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">

<LINK REL="stylesheet" TYPE="text/css" HREF="_Themes/sumipntg/THEME.CSS" VI6.0THEME="墨絵">
<LINK REL="stylesheet" TYPE="text/css" HREF="_Themes/sumipntg/GRAPH0.CSS" VI6.0THEME="墨絵">
<LINK REL="stylesheet" TYPE="text/css" HREF="_Themes/sumipntg/COLOR0.CSS" VI6.0THEME="墨絵">
<LINK REL="stylesheet" TYPE="text/css" HREF="_Themes/sumipntg/CUSTOM.CSS" VI6.0THEME="墨絵"></HEAD>
<BODY>

<%
'in_id=Request.Form("text1")
'in_pass=Request.Form("password1")
in_id=Request.Form("text2")
in_pass=Request.Form("password2")
%>


<%
set rec_1 = server.CreateObject("ADODB.connection")
rec_1.Open "DSN=test3_db"
set rec1_com = server.CreateObject("ADODB.command")
rec1_com.CommandText="SELECT ID,pass,氏名,性別,職業 FROM user1 " & _
"WHERE ID='" & in_id & "' and pass='" & in_pass & "'"
set rec1_com.ActiveConnection = rec_1
set db1=rec1_com.Execute

session("s_id")=db1("ID")
session("s_pass")=db1("pass")
session("s_name")=db1("氏名")
session("s_sei")=db1("性別")
session("s_work")=db1("職業")

%>

<P align=center><FONT color=black face="">データの削除</FONT></P>
<P>

<FORM action="db sakujyo1a.asp" method=post id=form1 name=form1>

<TABLE align=center border=1 cellPadding=1 cellSpacing=1 width=75%>

<TR>
<TD>ＩＤ</TD>
<TD><%=session("s_id")%></TD></TR>
<TR>
<TD>パスワード</TD>
<TD><%=session("s_pass")%></TD></TR>
<TR>
<TD>氏名</TD>
<TD><%=session("s_name")%></TD></TR>
<TR>
<TD>性別</TD>
<%if session("s_sei")="True" then%>
<TD>男</TD>
<%else%>
<TD>女</TD>
<%end if%>
</TR>
<TR>
<TD>職業</TD>
<TD><%=session("s_work")%></TD></TR>
</TABLE></P>

<P align=center><INPUT id=submit1 name=submit1 type=submit value=　　削除　　></P>

</FORM>

<P align=center>
<TABLE border=1 cellPadding=1 cellSpacing=1 width=75%>

<TR>
<TD><A
href="http://sim2/test3/db index.htm"><FONT color=blue face="" size=2>ＤＢあぶりケーションテストのページに戻る</FONT></A></TD>
<TD><A
href="http://sim2/test3/db id_pass1.htm"><FONT color=blue face="" size=2>変更削除のページに戻る</FONT></A></TD></TR></TABLE></P>

</BODY>
</HTML>