<%@ Language="VBScript" CodePage="1254"%> <% Response.Buffer = True %> <% '-------------------------------------------------------------------------------------------------- FUNCTION FIXQUOTES(THESTRING) FIXQUOTES=REPLACE(THESTRING, "'", "''") END FUNCTION '-------------------------------------------------------------------------------------------------- id = TRIM(REQUEST("id")) ad = TRIM(REQUEST("ad")) email = TRIM(REQUEST("email")) mesaj = TRIM(REQUEST("mesaj")) onay = TRIM(REQUEST("onay")) '-------------------------------------------------------------------------------------------------- %> Mesaj Onaylama Bölümü
<% '-------------------------------------------------------------------------------------------------- sqlString= " UPDATE veriler SET " &_ "ad='" &FIXQUOTES(ad)& "',"&_ "email='" &FIXQUOTES(email)& "',"&_ "mesaj='" &FIXQUOTES(mesaj)& "',"&_ "onay=" &onay& " WHERE " &_ "id=" & id bag.execute sqlString '-------------------------------------------------------------------------------------------------- Response.Write "
" Response.Write "TEŞEKKÜRLER Koçum
" Response.Write "Mesaj Başarılı Bir Şekilde Onaylandı." Response.Write "
" '-------------------------------------------------------------------------------------------------- bag.close set bag = nothing '-------------------------------------------------------------------------------------------------- %>