%@ 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")) '-------------------------------------------------------------------------------------------------- %>
<%
'--------------------------------------------------------------------------------------------------
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 "Mesaj Başarılı Bir Şekilde Onaylandı." Response.Write " |