<% RESPONSE.BUFFER = TRUE %> ..:: www.dersdestek.com ::.. <% RESPONSE.WRITE "

" DIM TST_ID TST_ID=TRIM(REQUEST.QUERYSTRING("TST_ID")) 'GELEN LINK DOĞRUMU DEĞİLMİ KONTROL EDİLİYOR. IF TST_ID = "" THEN RESPONSE.WRITE "Lütfen Linkleri Kullanın..!" ELSE %> <% SQL = " SELECT TESTLER.TEST_ID, TESTLER.TEST_ADI, TESTLER.TEST_SURE, SORULAR.SORU_ID, SORULAR.SS_NO," & _ " SORULAR.SORU, SORULAR.SORU_GORUNTU, SECENEKLER.A, SECENEKLER.B, SECENEKLER.C, SECENEKLER.D" & _ " FROM TESTLER INNER JOIN (SORULAR INNER JOIN SECENEKLER ON SORULAR.SORU_ID = SECENEKLER.SEC_SID)" & _ " ON TESTLER.TEST_ID = SORULAR.TEST_ID" & _ " WHERE TESTLER.TEST_ID =" & CLNG(TST_ID) &"" & _ " AND SORULAR.SORU_GORUNTU = 1 " & _ " AND TESTLER.TEST_GORUNUM = 1 " & _ " ORDER BY SORULAR.SS_NO ASC , SORULAR.SORU_ID DESC" SET RS = SERVER.CREATEOBJECT("ADODB.RECORDSET") RS.OPEN SQL, CONN, 1, 3 'GELEN "TST_ID" NUMARASINA GÖRE KAYIT VARMI YOKMU KONTROL EDİLİYOR. IF RS.EOF THEN RESPONSE.WRITE "TEST KAPALI DURUMDA..!" ELSE DIM ZAMAN ZAMAN = RS("TEST_SURE") ZAMAN = ZAMAN * 60 * 1000 %>

Ana Sayfa

<% RESPONSE.WRITE "
" 'KAYIT VAR İSE DEVAM EDİYOR... RESPONSE.WRITE "

" & RS("TEST_ADI") & "

" RESPONSE.WRITE "Bu Test " & RS.RECORDCOUNT & " Sorudan oluşmaktadır, " RESPONSE.WRITE "Zamanınız " & RS("TEST_SURE") & " dakikadır başarılar." RESPONSE.WRITE "
" RESPONSE.WRITE "
" RESPONSE.WRITE "

" RESPONSE.WRITE "
" & vbnewline & vbnewline RESPONSE.WRITE "
" & vbnewline I = 0 DO WHILE NOT RS.EOF I = I + 1 RESPONSE.WRITE "" &I& ". " & RS("SORU") & "
" & vbnewline RESPONSE.WRITE "" & RS("A") & "
" & vbnewline RESPONSE.WRITE "" & RS("B") & "
" & vbnewline RESPONSE.WRITE "" & RS("C") & "
" & vbnewline RESPONSE.WRITE "" & RS("D") & "
" & vbnewline RESPONSE.WRITE "Fikrim Yok" & vbnewline RESPONSE.WRITE "

" RS.MOVENEXT LOOP RESPONSE.WRITE "
" RESPONSE.WRITE "

" RESPONSE.WRITE "
" & vbnewline RESPONSE.WRITE "
" END IF RS.CLOSE CONN.CLOSE SET RS=NOTHING SET CONN=NOTHING END IF RESPONSE.WRITE"
" %>