<% Response.buffer = True %> D-CONSTRUCT webdesign - redaktionssysteme - hamburg - homepage - internet - online - agentur - dvd - cd-rom - terminal - multimedia - e-commerce - e-business - e-Care - design - kommunikation - screendesign - marketing - konzept - interaktive - medien <% DIM frage(6) antwort = request("antwort") richtig = request("richtig") anzahl = request("anzahl") korrekt = request("korrekt") zahl2 = request("zahl2") auto = request.QueryString("auto") if (antwort = " ") then anzahl = 1 else anzahl = anzahl + 1 if (anzahl <= 1) then RANDOMIZE(TIME) zahl2 = INT(2345659.0*RND()) SET rs2 = Server.CreateObject("ADODB.RecordSet") rs2.Open "Create Table "&zahl2&" (fragenummer INT)","DSN=redaktion;" end if end if RANDOMIZE(TIME) zahl = INT(125.0*RND()) if (zahl = 0) then Do While (zahl = 0) RANDOMIZE(TIME) zahl = INT(125.0*RND()) LOOP end if a = -1 if (anzahl >=1) then Do while a < 0 SET rs7 = Server.CreateObject("ADODB.RecordSet") rs7.Open "SELECT * FROM "&zahl2&" Where fragenummer="&zahl, "DSN=redaktion;" if rs7.eof then EXIT DO else RANDOMIZE(TIME) zahl = INT(125.0*RND()) if (zahl = 0) then Do While (zahl = 0) RANDOMIZE(TIME) zahl = INT(125.0*RND()) LOOP end if a = -1 end if LOOP SET rs1 = Server.CreateObject("ADODB.RecordSet") rs1.Open "SELECT * FROM Quiz WHERE id="&zahl, "DSN=redaktion;" SET rs3 = Server.CreateObject("ADODB.RecordSet") rs3.open "Insert Into "&zahl2&" (fragenummer) VALUES("&rs1("id")&")","DSN=redaktion;" end if %>
       
d-construct
 
 
 
  Kundenbereich
Name
Passwort
  
Leistung
s_Referenzen
Partner
Neues
Spass
Kontakt
<%if (auto = "ac1704c3TwjEqNN59sOK6d225TghMHbW5sv70lZ7993AeYNV") then %>
Gratulation!
Schonmal über eine Rennfahrer-Karriere nachgedacht?

Aber zuerst das
Formular ausfüllen, abschicken und mit
etwas Glück, gewinnen Sie einen tollen   Preis!

Vorname
Name
Firma
Strasse
Ort
Email
     
<%else %> <% if (korrekt = " ") then korrekt = 0 else if (richtig = antwort) then %> <% if (anzahl <= 6) then %>
Der D-Constructor hätte
da noch 'ne Frage:



<%=rs1("Frage") %>
"> ">
<%=rs1("Antwort1") %>
<%=rs1("Antwort2") %>
<%=rs1("Antwort3") %>
   
   
 
<%else rs7.close rs1.close %>
Gratulation! Sie haben alle Fragen richtig beantwortet !

Formular ausfüllen, abschicken und mit
etwas Glück, gewinnen Sie einen tollen Preis !

Ihre Angaben werden nur zum Zwecke der Gewinnerermittlung erhoben und bis auf Wideruf gespeichert und genutzt. Eine Weitergabe an Dritte erfolgt nicht. Alle Angaben sind freiwillig. <%SET rs4 = Server.CreateObject("ADODB.RecordSet") 'rs4.open "DELETE FROM "&zahl2,"DSN=redaktion;" rs4.open "DROP Table "&zahl2,"DSN=redaktion;" %>
Vorname
Name
Firma
Strasse
Ort
Email
     
<%end if else 'rs7.close rs1.close SET rs4 = Server.CreateObject("ADODB.RecordSet") rs4.open "DELETE FROM "&zahl2,"DSN=redaktion;" 'rs4.open "DROP Table "&zahl2,"DSN=redaktion;" %>
Das war leider eine falsche Antwort.
Hat die Pisa - Studie doch recht?
Versuchen Sie es doch einfach noch einmal.

<%end if end if end if %>