strSQL = "Insert into sluttider (sluttid) values('" & Request.Form("sluttid") & "')" DataConn.Execute(strSQL) Alert = "Sluttid er nu oprettet " end if %>
strSQL = "Select sluttid From sluttider Where sluttid = '" & Request.Form("sluttid") & "';"
set rst = DataConn.Execute (strSQL)
if rst.bof and rst.eof then ' sluttid findes ikke else ' sluttid findes end if
strSQL = "Insert into sluttider (sluttid) values('" & Request.Form("sluttid") & "')" DataConn.Execute(strSQL) Alert = "Sluttid er nu oprettet " end if %>
if rst.bof and rst.eof then strSQL = "Insert into sluttider (sluttid) values('" & Request.Form("sluttid") & "')" DataConn.Execute(strSQL) Alert = "Sluttid er nu oprettet " else Alert = "Sluttid findes " end if
strSQL = "Select sluttid From sluttider Where sluttid = '" & Request.Form("sluttid") & "';"
set rst = DataConn.Execute (strSQL)
if rst.bof and rst.eof then strSQL = "Insert into sluttider (sluttid) values('" & Request.Form("sluttid") & "')" DataConn.Execute(strSQL) Alert = "Sluttid er nu oprettet " else Alert = "Sluttid findes " end if
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.