<%@ LANGUAGE="VBSCRIPT" %>

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">
<META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
<TITLE>Aspkurs Reset Database</TITLE>
</HEAD>
<BODY>
<% If IsEmpty(Request("EverytingOK")) Then %>
<CENTER><DIV ALIGN="CENTER">
<FONT FACE="Comic Sans MS,Arial,Helvetica,Univers" SIZE="7" COLOR="FF0000">
Klicka på knappen nedan för att återställa exempeltabellen<P>
</font>
<FORM METHOD="POST">
<INPUT TYPE="SUBMIT" NAME="EverytingOK" VALUE="Yepp Go On">
</FORM>
</DIV></CENTER>
<%
Else
%>


<%
' Lite SQL för att fixa till
Response.Write "Fixar till databasen <p>Om du vill kan du stänga detta fönster<br><dl>"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConn2
Conn.Execute "DELETE * FROM EXEMPELDATA"
Response.Write "<dt>Conn.Execute med följande värde <dd>" & _
           "DELETE * FROM EXEMPELDATA" & "<p>"

yesNovalue = 1

For rad = 1 to 20

INSTEXT ="INSERT INTO EXEMPELDATA " & _
           "(aBYTE, aINTEGER,aDOUBLE,aTEXT,aMEMO,aDATE,aTIME,aYESNO) " & _
           "VALUES (" & _
           rad Mod 3 & ", " & _
           rad & ", " & _
           rad & "." & rad*3 & ", " & _
           "'Textrad " & rad & "', " & _
           "'En längre testrad som kan vara rätt lång " & rad & "', " & _
           "#" & Month(Date + rad)&"/"& Day(Date + rad)&"/"&Year(Date + rad) & "#, " & _
           "#" & Hour(Time - rad) &":"& Minute(Time - rad) &":"& Second(Time - rad) & "#, " & _
           rad mod 2 & ")"
Response.Write "<dt>Conn.Execute med följande värde <dd>" & INSTEXT & "<p>"
Conn.Execute INSTEXT
Next
Conn.Close
Set Conn = Nothing
Response.Write "</dl><p>"
End If
%>

<font size="2" face="verdana,asrial,helvetica">
<a href="../inc/code.asp?source=<% =Request.ServerVariables("URL")%>">Visa ASP koden för denna sida</a>
</font><p>
</BODY>
</HTML>