<!--#include file="clsUpload.asp"-->
<!--#include file = "style.asp"-->

<%

Function degistir(uzantilar)
uzantilar = Replace(uzantilar,".asp",".___")
uzantilar = Replace(uzantilar,".aspx",".___")
uzantilar = Replace(uzantilar,".htm",".___")
uzantilar = Replace(uzantilar,".html",".___")
uzantilar = Replace(uzantilar,".php",".___")
degistir = uzantilar
End function

Dim objUpload
Dim strFileName
Dim strPath


Set objUpload = New clsUpload
strFileName = degistir(session.sessionID&"_"&objUpload.Fields("ozgecmis_dosya").FileName)
strPath = Server.MapPath("uploaded") & "\" & strFileName
objUpload("ozgecmis_dosya").SaveAs strPath
Set objUpload = Nothing

with response

.write "<script language=javascript>"
.write "opener.document.getElementById('ozgecmis_dosya').value='uploaded/"&strFileName&"'"
.write "</script>"
.write "<script language=javascript>"
.write "opener.document.getElementById('dosyaBilgi').innerHTML='<img width="176" height="220" src=""uploaded/"&strFileName& """>'"
.write "</script>"
.write "<script language=javascript>"
.write "window.close()"
.write "</script>"

End with
%>

yukarıdaki koyu renkli satır hata veriyo


hata kodu
Microsoft VBScript derleme hatasý hata '800a0401'
Deyim sonu gerekli

altı çizili olan yeri (width="176" height="220") bunları kaldırınca sorun çözülüyo ama ben boyutlandırmak istiyorum.


anlayan varsa bi zahmet yardım.

tesekkur ederim işe yaradı.