01.<% Option Explicit %>
02.<html>
03.<head>
04.<title></title>
05.</head>
06.<body>
07.<%
08.
09.Dim Conn,strSQL,objRec
10.Set Conn = Server.Createobject("ADODB.Connection")
11.Conn.Open "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost;UID=root; " & _
12."pwd=root;database=mydatabase;option=16384;"
13.strSQL = "SELECT * FROM customer where custLogin='SEK' "
14.Set objRec = Server.CreateObject("ADODB.Recordset")
15.objRec.Open strSQL, Conn, 1,3
16.%>
17.if Not objRec.EOF then
18. if objRec.Fields("status").Value="A" then
19.%>
20.<input type="submit" value="Submit1" name ="Submit1">
21.<input type="submit" value="Submit2" name ="Submit2">
22.<input type="submit" value="Submit3" name ="Submit3">
23.<% else%>
24.<input type="submit" value="Submit4" name ="Submit4">
25.<input type="submit" value="Submit5" name ="Submit5">
26.<input type="submit" value="Submit6" name ="Submit6">
27.<% end if %>
28.<% end if %>
29.
30.</table>
31.<%
32. objRec.Close()
33. Conn.Close()
34. Set objRec = Nothing
35. Set Conn = Nothing
36.%>
37.</body>
38.</html>
