<%'DiyalogTR.Com © 2008'%> <% internet_adresi=request.form("internet_adresi") resimbilesen=request.form("resimbilesen") siteadi=trim(request("siteadi")) siteadi=guvenlik(siteadi) aciklama= request.form("aciklama") anahtarkelime= request.form("anahtarkelime") isimsoyad=trim(request("isimsoyad")) isimsoyad=guvenlik(isimsoyad) yetkili_email=trim(request("yetkili_email")) yetkili_email=guvenlik(yetkili_email) sartlar=trim(request("sartlar")) sartlar=guvenlik(sartlar) email=trim(request("email")) email=guvenlik(email) basvuru= request.form("basvuru") klasor=trim(request("klasor")) klasor=guvenlik(klasor) mailsifre=trim(request("mailsifre")) mailsifre=guvenlik(mailsifre) mailserver=trim(request("mailserver")) mailserver=guvenlik(mailserver) mailsec=request.form("mailsec") firmaadi=request.form("firmaadi") firmasahibi=request.form("firmasahibi") kunye=request.form("kunye") telefon=request.form("telefon") gsmno=request.form("gsmno") oturum=request.form("oturum") yil=request.form("yil") suankiyil=request.form("suankiyil") adres=request.form("adres") genelsayfasayisi=request.form("genelsayfasayisi") sayfa_sayisi=request.form("sayfa_sayisi") tema=request.form("tema") sehir=request.form("sehir") %> <%if internet_adresi= "" Then%> <%end if%> <%if siteadi= "" Then%> <%end if%> <%if isimsoyad= "" Then%> <%end if%> <%if yetkili_email= "" Then%> <%end if%> <%if sartlar= "" Then%> <%end if%> <%if email= "" Then%> <%end if%> <%if firmaadi= "" Then%> <%end if%> <%if firmasahibi= "" Then%> <%end if%> <%if kunye= "" Then%> <%end if%> <%if yil= "" Then%> <%end if%> <% set rs=server.createobject("adodb.recordset") rs.open "ayarlar WHERE admin= '"&session("admin")&"'",cilem,1,3 sartlar = Replace(sartlar,Chr(13),"
") adres = Replace(adres,Chr(13),"
") rs("firmaadi") = firmaadi rs("firmasahibi") = firmasahibi rs("kunye") = kunye rs("aciklama") = aciklama rs("anahtarkelime") = anahtarkelime rs("telefon") = telefon rs("gsmno") = gsmno rs("yil") = yil rs("suankiyil") = suankiyil rs("adres") = adres rs("isimsoyad") = isimsoyad rs("siteadi")= siteadi rs("yetkili_email")= yetkili_email rs("internet_adresi")= internet_adresi rs("email")= email rs("sartlar") = sartlar rs("sayfa_sayisi") = sayfa_sayisi rs("genelsayfasayisi") = genelsayfasayisi rs("klasor") = klasor rs("mailsifre") = mailsifre rs("mailserver") = mailserver rs("mailsec") = mailsec rs("oturum") = oturum rs("resimbilesen") = resimbilesen rs("tema") = tema rs("sehir") = sehir if Request.Form("basvuru")<>"" then rs("basvuru")=true else rs("basvuru")=False end if rs.update %> <% rs.Close Set rs = Nothing cilem.Close Set cilem = Nothing%>