<% Option Explicit %>
<html>
<head>
<title></title>
</head>
<body>
<%
Dim Conn,strSQL,objRec
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost;UID=root; " & _
"pwd=root;database=mydatabase;option=16384;"
strSQL = "SELECT * FROM customer where custLogin='SEK' "
Set objRec = Server.CreateObject("ADODB.Recordset")
objRec.Open strSQL, Conn, 1,3
%>
if Not objRec.EOF then
if objRec.Fields("status").Value="A" then
%>
<input type="submit" value="Submit1" name ="Submit1">
<input type="submit" value="Submit2" name ="Submit2">
<input type="submit" value="Submit3" name ="Submit3">
<% else%>
<input type="submit" value="Submit4" name ="Submit4">
<input type="submit" value="Submit5" name ="Submit5">
<input type="submit" value="Submit6" name ="Submit6">
<% end if %>
<% end if %>
</table>
<%
objRec.Close()
Conn.Close()
Set objRec = Nothing
Set Conn = Nothing
%>
</body>
</html>